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APPENDIX  2 


This  appendix  describes  and  documents  a  number  of  utilities  designed 
to  facilitate  the  creation  of  a  front-end  to  the  expert  system  which 
understands  natural  language.  The  appendix  is  divided  into  three 
sections:  Section  1  which  explains  the  form  of  function  of  the  util¬ 
ities,  Section  II  which  includes  sample  input  to  the  utilities,  and 
Section  III  which  contains  two  dictionaries  and  a  concordance  output  by 
the  utilities. 

SECTION  I 


Description  of  Dtilities  (Grammarian's  Tool  Kit) 

We  built  a  number  of  utilities  whose  purpose  is  to  gain  insight  into 
the  kinds  of  questions  which  might  be  directed  to  an  expert  system  to 
assess  tactical  air  capability.  Our  initial  effort  has  been  directed 
towards  identifying  and  understanding  the  individual  words  and  phrases 
used  in  the  tactical  air  arena.  We  have  input  to  our  utilities  sample 
questions  from  a  number  of  sources  (see  Section  II),  as  well  as  a 
lengthy  discussion  of  the  Tactical  Air  Command,  which  we  determined  to 
be  a  good  source  of  vocabulary. 


Our  utilities  serve  the  following  functions: 

(1)  list  by  frequency  or  by  alphabetical  order  the  vocabulary  of  the 
input  sample 

(2)  show  the  sentential  content  in  which  a  particular  word  appears 

(3)  find  co-occurrences  of  certain  word  pairs 

(4)  merge  vocabulary  lists  from  different  sources 

(5)  create  a  concordance,  or  list  of  the  sentential  contents  from 
different  sources  for  all  words  in  those  sources 

(6)  create  and  maintain  a  dictionary  which  includes  information 
about  the  grammatical  usage  of  each  word,  its  meaning,  as  well 
as  its  synonyms,  aliases,  and  abbreviations. 
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The  vocabulary  builder  constructs  a  list  of  all  the  words  which 
appear  in  the  input  sample.  Along  with  each  word,  the  program  also 
determines  the  number  of  times  that  the  word  appears  in  the  input.  This 
occurrence  (frequency)  count  serves  to  identify  words  which  appear 
often,  and  is  useful  in  reasoning  about  the  nature  of  the  input  and  the 
best  strategy  to  understand  it.  There  are  two  ways  to  display  this 
list:  alphabetically,  and  by  frequency.  The  latter  arranges  the  words 

in  decreasing  order  of  frequency;  words  having  the  same  frequency  are 
alphabetized  within  their  group. 

Another  utility,  Key  Word  Out  of  Context  (KWOC),  lists  all  sentences 
in  the  input  sample  which  contain  a  specified  word.  In  the  listing,  the 
specified  word  is  centered  on  the  page  so  that  it  is  easy  to  compare  the 
contexts  of  the  word  in  different  sentences.  This  is  an  essential  tool 
for  determining  multiple  meanings  that  a  word  might  have,  for  example: 

"How  much  of  this  task  can  we  support?" 

and 

"How  many  squadrons  should  we  task  for  DCA  CAP?" 


When  trying  to  understand  English,  it  is  essential  to  know  the  part  of 
speech  which  each  word  represents.  In  this  example,  the  way  to  know 
that  the  word  "task"  is  a  noun  in  the  first  sentence  and  a  verb  in  the 
second,  is  to  look  at  the  context.  In  the  first  sentence,  "task"  is 
immediately  preceeded  by  "this"  which  signals  a  noun.  In  the  second, 
"task"  is  preceeded  by  "we"  which  requires  a  verb.  It  is  necessary  to 
specify  all  of  these  cases  when  creating  a  natural  language  understand¬ 
ing  system. 


A  third  utility  facilitates  further  analysis  of  words  by  listing  co¬ 
occurrences  of  a  pair  of  words,  i.e.,  all  of  the  sentences  in  the  input 
sample  which  contain  both  words.  There  are  three  different  ways  to 
specify  co-occurrence:  ADJACENT,  PRIOR,  and  ANYWHERE.  ADJACENT  finds 
those  sentences  where  the  first  word  is  immediately  followed  by  the 
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second  word*  PRIOR  finds  those  sentences  where  the  first  word  occurs 
anywhere  before  the  second  word,  and  ANYWHERE  finds  all  sentences 
containing  both  words,  regardless  of  order.  Therefore,  any  sentence 
found  by  ADJACENT  is  also  found  by  PRIOR,  and  every  sentence  found  by 
PRIOR  is  also  found  by  ANYWHERE.  For  example,  suppose  we  had  the 
following  sentences: 

1.  How  many  FIS's  are  FMC? 

2.  How  come  so  many  are  NMC? 

3.  Can  Bitgurg  generate  so  many  sorties? 

4.  Where  can  we  get  so  many  AGM-45's  and  how  fast  can  we  get  them? 

(ADJACENT  "how"  "many")  would  find  sentence  1  only. 

(PRIOR  "how"  "many")  would  find  sentences  1  and  2. 

(ANYWHERE  "how"  "many")  would  find  sentences  1,  2  and  4. 

The  last  three  utilities  now  form  part  of  a  functionally  cohesive 
group  of  utilities,  the  WORDS  utilities.  The  purpose  of  the  WORDS 
utilities  is  to  build  a  lexicon  from  text  files  and  study  the  words  in 
context.  The  WORDS  utilities  are  in  the  form  of  five  executable  files 
in  a  directory  named  WORDS.  The  utilities  operate  on  some  data  files 
which  also  reside  in  the  WORDS  directory.  There  are  six  types  of  files, 
each  with  its  designated  three  letter  file  extension. 

Input  to  the  system  is  a  collection  of  ASCII  files.  These  fileB 
must  contain  text.  The  period  at  the  end  of  sentences  must  be  followed 
by  at  least  either  one  carriage  return  or  two  spaces.  The  asterisk 
character  *,  has  a  special  meaning  —  it  marks  a  comment  —  anything  on 
the  line  appearing  after  the  asterisk  is  ignored.  Carriage  returns, 
line  feeds,  and  tabs  are  optional,  no  other  control  codes  are  allowed  in 
the  file.  A  file  may  contain  at  most  10R  bytes.  Each  of  these  input 
files  must  have  the  file  extension  .TXT. 

The  WORDS  program  reads  a  .TXT  file  and  generates  a  .WOR  file  with 
the  same  filename.  The  .WOR  file  contains  an  alphabetized  list  of  the 
words  appearing  in  the  .TXT  file.  This  is  a  text  file  arranged  as  a 
sequence  of  records.  Records  are  delimited  by  a  carriage-return-line- 


feed  pair.  Each  record  is  exactly  30  bytes  long.  The  first  25  bytes 
contain  one  word,  in  upper  case,  left  justified,  space  padded.  The  last 
five  bytes  contain  the  number  of  times  that  this  word  appears  in  the 
.TXT  file  right  justified,  space  padded. 

The  MERGE  program  combines  many  .UOR  files  into  one  .MRG  file.  The 
description  of  the  .MRG  file  is  identical  to  .WOR  files  above.  The 
frequency  count  for  each  word  is  the  sum  of  the  frequency  counts  of  that 
word  in  each  of  the  .WOR  files  that  contain  it.  This  .MRG  file  is 
therefore  the  list  of  all  words,  sorted  alphabetically. 

The  SORT-NUM  program  reads  in  a  .MRG  file  and  generates  a  .NUM  file 
by  permuting  the  records  in  the  .MRG  file.  The  output  is  sorted 
primarily  in  descending  order  of  frequency,  secondarily  alphabetically. 
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The  SENTENCE  program  reads  a  .TXT  file  and  generates  a  .SEN  file 
with  the  same  name.  This  .SEN  file  contains  one  line  per  sentence, 
question,  or  exclamation  in  the  .TXT  file.  Sentence  punctuation  is 
omitted  in  the  .SEN  file. 

The  CONCORDAnce  program  reads  in  a  list  of  selected  words,  and  a 
collection  of  .SEN  files  and  prints  out  a  concordance  listing  of  the 
selected  words.  The  selected  words  list  (with  file  extension  .SEL), 
should  be  a  text  file  with  one  word  per  line.  The  easiest  way  to 
generate  this  .SEL  file  is  to  COPY  a  .MRG  file  to  a  .SEL  file  and  use  a 
text  editor  to  remove  the  unwanted  lines.  CONCORDAnce  ignores  anything 
on  the  line  past  the  first  space. 


The  PRINTER  program  is  used  to  print  .TXT,  .WOR,  .MRG,  .NUM,  .SEN, 
.SEL,  as  well  as  any  other  text  files  to  the  printer.  It  paginates  the 
output  and  prints  the  file  name,  date,  time  and  page  number  at  the  top 
of  each  page. 


The  system  is  implemented  in  BASIC  and  compiled  with  the  Microsoft 
Quick  BASIC  compiler  version  1.00.  Source  resides  on  .ASC  files  in  the 
SRC  subdirectory  of  the  WORDS  directory. 

The  definition  of  a  word  as  it  pertains  to  this  program  is  "a  se¬ 
quence  of  characters  delimited  by  spaces."  This  definition  is  perfect 
for  prose  which  contains  nothing  but  letters  (i.e.,  no  digits  or  punc¬ 
tuation  symbols).  However,  the  input  to  the  natural  language  under¬ 
standing  system  will  be  more  complicated.  Thi6  analysis  program  does 
not  have  a  'deep'  understanding  of  what  it  is  processing,  and  sometimes 
does  not  find  the  exact  location  on  where  one  word  ends  and  another 
begins.  This  usually  happens  with  punctuation  symbols:  the  hyphen  and 
the  slash.  For  example,  one  of  the  'words'  from  the  questions  "How  many 
f ighter/recce  aircraft  are  needed  ..."  is  FIGHTER/ RECCE.  This  inter¬ 
pretation  is  unacceptable  in  the  final  system  but  it  is  adequate  for  the 
level  of  analysis  being  performed  now. 

There  is  a  special  kind  of  a  'word',  one  which  consists  only  of 
digits  and  an  optional  decimal  point.  Such  a  word  is  a  number,  repre¬ 
sented  as  "[NUMBER]".  Similarly,  the  pound  sign  (  ),  is  represented  as 
"[POUND-SIGN]".  We  intend  to  build  rules  into  the  final  program  which 
will  understand  special  words  —  for  example  0600Z  will  be  interpreted 
as  a  time  of  day,  and  1FS241  will  be  interpreted  as  a  serial  number 
(with  the  aid  of  the  context,  of  course). 
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The  dictionary  maintenance  utility  (DMU)  is  designed  to  facilitate 
entry  of  lexical,  grammatical!  and  semantic  information  for  each  word  in 
the  tactical  air  lexicon.  The  DMU  takes  a  lexicon  generated  by  the 
WORDS  utilities  and  creates  an  entry  frame  for  each  word,  into  which  the 
information  can  be  put.  In  addition,  DMU  creates  a  menu  driven  format 
whereby  the  dictionary  writer  can: 

E  edit  the  word 

G  edit  the  grammar  codes  of  the  word 
D  delete  the  word 

N  go  to  next  word  alphabetically 

P  go  to  previous  word  alphabetically 
J  jump  to  a  different  word 
C  create  a  new  word 

T  enter  aliases  or  synonyms  for  the  word 

(e.g.,  "heater"  or  sidewinder"  for  AIM-9,  "maverick"  for  AGM-65, 
"partially-mission-capable"  for  PMC) 

B  look  at  other  words  to  which  the  word  is  related  in  meaning 

(e.g.,  "F-15"  is  related  to  "aircraft"  is  related  to  "resource") 
M  change  default  grammar  codes  for  a  new  word 
S  save  changes 

Q  quit  DMU 

!  delete  the  entire  entry  for  word 
?  help  for  DMU  menu 


The  DMU  is  designed  to  be  "user-friendly"  so  anyone  involved  in 
building  the  expert  system  can  immediately  enter  information  about  a 
word,  regardless  of  that  person's  linguistic  sophistication. 


;  user .  1 


Funrcions  and  documentation  to  use  te:;t  analysis  -functions 


!defun  readl  (-filename) 
(gen-sentences  -filename) 
(terpri  ) 

^genZ) 
iddemup ) 

Tmakebl  i  st ) 


(■initialize  variables,  read  -file 
5 natural  looking  sentences 

; processed  sentences 

;  analyze  word  -frequency 

; laminate  both  sentence  representations 


:  gen-sentences 
;  count-words 


;  processes  sentences  -for  kwoc  and  co-occurrence 
■processes  words  for  alphabetically  and • 

;  numer i cal  1 y 


(defun  alphabetically  nil  (show-al phabeti cal  1 y ) ) 

(sort  all  words  alphabetically,  show 
■word  and  frequency 

(defun  numerically  nil  (show-by-num) ) 

(sort  all  words  using  two  keys: 

(primary  key  is  by  frequency  —  descending 
( secondary  key  is  al phabeti cal  1 y 


kwoc  The  kwoc  funciton,  defined  in  the  file  KEYWORD.  L 
accept  1  argument  —  a  word  delimited  by  blanks 
He:;,  (kwoc  "  F15’s  "  >  ] 

I  lists  all  sentences  containing  a  substing  which  matches  the 
argument  *e:;actly*  (case,  white  space  and  all). 


adjacent  (wordl  wordZ) 


(pri  (adjacentl  wordl  word2) ) ) 

■show  all  sentences  with  wordl  immediately 
ipreceeding  word2.  Ignores  case. 

(usage  (adjacent  "This"  "is") 


(defun  prior  (wordl  word2)  (pri  (priori  wordl  word2  blist) ) ) 

(show  all  sentences  containing  wordl 
(anywhere  before  word 2 


(de-fur,  anywhere  (wordl  word?)  (pri  (arywherel  wordl  word 2  blist))) 

(any  sentences  containing  both  words 


,!  load -me.  1 
; 


■file  which  loads  all  files  necessary  -for 
text  analysis 


*'b:msort.  1  ") 

"b: co. 1 ") 
"brmichael . 1 "> 
"biuser. 1 ") 

"b: gen-sent . 1 " ) 
"b: keyword. 1 ") 


,5  michael .  1 
I 


■functions  which  do  some  o-f  the  word  counting 

Stores  alist  as  strings  ex.  (("THIS"  3)  ("IS" 


i)  ) 


»fun  init-alist  nil 
1  (setq  alist  nil)) 


(de-fun  count-sentence  (sent)  ;sent  is  a  list  of  the  form 

(mapcar  J(!F15’S!  134.3!  ! FOOBAR ! ) 

#’ (lambda  (w)  (process-word  (symbol-name  w) ) ) 

sent) 

nil) 


(defun  process-word  (word  &aux  num)  jword  eg  !F15’S! 

(if  (numbp  word)  (setq  word  *  “ [NUMBER 1 ") )  ; treat  all  numbers  as  0  here 

(cond  ((setq  num  (cadr  (assoc  word  alist  rtest  'equal))) 

; see  if  word  is  in  list 
(setq  alist  (subst  (list  word  (  +  num  1)) 

(assoc  word  alist  :test  ’equal) 
alist)))  ;inc  count 

(t  (setq  alist  (cons  (list  word  1)  alist)))))  jelse  add  word 


(defun  numbp  (word)  ( =  0  (length  (stri ng-1 ef t-tri m  " 1234567B90. "  word)))) 


,<n  sort-by-num  nil 
msort  alist  ’cadf — is-lessp)) 


(defun  cadr — is-lessp  (pairl  pair2) 

(cond  (  (=  (cadr  pairl)  (cadr  pair2)) 

A  (string-lessp  (car  pairl)  (car  pair2))> 

(t  (>  (cadr  pairl)  (cadr  pair2))>)) 

; the  predicate  that  sort  should  use 


;if  =  frequency 
;then  alphabetically 


(defun  sort-al phabeti call y  nil 
(msort  alist 

#’ (lambda  (pairl  pair2) 

(string-lessp  (car  pairl)  (car  pair2)))>) 


(defun  symbol-namel  (s)  (cond  (  (numberp  s)  ’"0")  (t  (symbol-name  s) ) ) ) 


(def  un  ruff  (strin) 

(count -sentence 

(read-f rom-stri ng  strin))) 


j rough  count  from  string 
;  of  form  "  CFIS’S!  !3.4!  !  NOW  !  )  " 


(defun  show-by-num  nil 

(mapcar  'print  (sort-by-num) ) 
ni  1 ) 


(defun  show-al phabeti cal  1 y  nil 

(mapcar  'print  (sort-al phabeti cal  1 y) )  nil) 


($3\un  addemup  nil 
'.Vs.yni  t-al  i  st ) 

(mapcar  'ruff  slist2)) 


lO(nlogn)  merge  sort 


(de-fun  msort  (1  pred  fcaux  11  12  13) 
(cond  ( (nul 1  1 )  nil) 

((null  (cdr  1))  1) 

( (*  (length  1)  2) 

(cond  ((apply  pred  1)  1) 
(t  (reverse  1 ) ) ) ) 


(t  (setq  13  (msplit  1)) 

(setq  11  (msort  (car  13)  pred) 
(mmerge  11  12  pred)))) 


t 


12  (msort  (cadr  13)  pred)) 


(de-fun  msplit  (1  &au>;  tmp)  (returns  two  lists  which  add  up  to  1  each  o-f  length 

((length  1 ) /2  Like  perfect  unshu-f-fle 

(cond  ((null  1)  ’(nil  nil)) 

((null  (cdr  1))  (append  (list  1)  ’((>))) 

(t  (setq  tmp  (msplit  (cddr  1))) 

(cons  (cons  (car  1)  (car  tmp)) 

(list  (cons  (cadr  1)  (cadr  tmp) )))>)) 


(de-fun  msplit  (1) 

(prog  ((11  nil)  (12  nil)) 


(returns  a  list  o-f  two  lists  whose  append 
(is  a  permutation  (unshu-f f le*reverse)  o-f  the 
(original  argument 


1  oop 

(if  (null  1)  (return  (cons  11  (list  12)))) 

(if  (null  (cdr  1))  (return  '•  (  , (cons  (car  1)  11)  ,12))) 
(setq  11  (cons  (car  1)  ID) 

(setq  12  (cons  (cadr  1)  12)) 

(setq  1  (cddr  1 ) ) 

(go  1 oop ) ) ) 


(defun  mmerge  (11  12  pred)  (merge  11  and  12 

(cond  ((null  11)  12) 

((null  12)  11) 

((apply  pred  (list  (car  11)  (car  12))) 

(cons  (car  11)  (mmerge  (cdr  11)  12  pred))) 

(t.  (cons  (car  12)  (mmerge  11  (cdr  12)  pred))))) 


(defun  mmerge  (11  12  pred)  (merge  11  and  12 

(prog  ( (  1  nil)) 

1  oop 

(if  (null  11)  (return  (append  12  1))) 

(if  (null  12)  (return  (append  11  1))) 

(if  (apply  pred  (list  (car  (last  12))  (car  (last  11)))) 

(progn  (setq  1  (cons  (car  (last  11))  1)) 

(setq  11  (butlast  11))) 

(progn  (setq  1  (cons  (car  (last  12))  1)) 

(setq  12  (butlast  12)))) 

(go  1 oop ) ) ) 


;  co.  1 


Functions  to  -find  co-occurrence  of  words 


(defun  makeblist  nil  (setq  blist  (pairlis  slist  slist2>>  'Ok) 


ad j  acent 1 


(a  b) 


{returns  all  sentences  with  word  b 
{immediately  following  word  a. 


{both  arguments  are  strings, 
(adjl  (string-append  " ! "  a  "  !  !"  b  " ! " )  blist)) 


(defun  adjl  (key  1) 

(cond  (  (nul 1  1 )  nil) 

(t  (cond  ( ( str i ng-search*  key  (cdar  1)) 
(cons  (caar  1  ) 

(adj 1  key  (cdr  1 >  )  )  ) 

(t  (adj 1  key  (cdr  1  ))))))  ) 


{ i f  matches 

{include  ?<  recurse 
{else  just;  recurse 


(defun  priori  (a  b  1) 

(prior2  (str i ng-appe nd 
(str i ng-append 
1  )  ) 


{returns  all  sentences  with  word  b  occur inq 
{anywhere  after  word  a 

II  |  II  ^  II  i  ii  \ 

" ;  ■■  b  " ; " ) 


(defun  prior2  (a  b  ]) 
(cond  ((null  1 )  nil) 


(t 


(append 

( cond 
(  (and 


(setq 

(setq 


temp  1 
temp  2 


(string-search-*  a 
(string-search*  b 


(list  (caar  1 ) ) ) ) 
(prior2  a  b  (cdr  1  )  )  )  )  )  ) 


(cdar  1 ) ) )  ; i '  a  is  in  sent 

(cdar  1 )  temp  1 ) ) ) 

:  and  b  after  a 
sthen  include 
{ recurse 


(de-tun  pr  i  (1)  (mapcar  It' print  1)  (terpri)) 

(defun  anywherel  (a  b  1  ) 

(cond  ((null  1 )  nil) 

(t  (append 

(cond 
(  (and 

(string-search*  a  (cdar  1)) 
(str i ng-search*  b  (cdar  1))) 
( 1  i  st  (caar  ].)>)) 

(anywherel  a  b  (cdr  1)))))) 


lif  a  is  in  sent 
:  and  b 

;  then  include 
: recur st 


;  keyword. 1 


functions  to  display  sentences  with  a  given  word 


(defun  kwoc  (w) 

(mapcar  #'prettyl 
jfl&k  (remove-if 

#'  (lambda 
(1 ) 

(not 

(apply  whi ch-stri ng-search 

(list  w  (string-append  "  "  1  "  "))))) 
si i st  > ) 

nil ) 


(defun  prettyl  (1) 

(setq  pos  (apply  whi ch-stri ng-search  (list  w  (string-append  "  "  1  "  ") 
(cond  ( ( >  pos  32) 

(setq  disp  (car  (copy-list  ’(" 

(do  ((a  0  (+  a  1))  (lcl  (min 

(-  (length  1 ) 

(-  pos  32) ) 

75)  )  ) 

( (=  a  lcl)  nil) 

(setf  (aref  disp  a) 

(aref  1  (+  a  (-  pos  32) ) ) ) ) ) 


(setq  disp  (car  (copy-list  ’(" 

(do  ((a  (-  32  pos)  (+  a  1))  (lcl  (min 

75 

<  +  (length  1) 

(-  32  pos) ) ) ) ) 

((=  a  lcl)  nil) 

(setf  (aref  disp  a) 

(aref  1  (-  a  (-  32  pos) )))))) 

(print  disp) 

(do  (  (a  0  (+  1  a)  )  ) 

( ( =  a  75 )  nil) 

(setf  (aref  disp  a)  32))) 


(setq’ whi ch-stri ng-search  ' stri ng-search ) 
?options:  ’ string-search  case  sensitive 

?  ’ str i ng-search*  case  insensitive 


(defun  kwocl  (w  1  &au::  pos  di  sp) 

(cond  ( (nul 1  1 )  nil) 

((setq  pos  (str ing-search  w  (string-append  "  "  (car  1)  "  " ) ) ) 
(cond  ( ( >  pos  32) 

(setq  disp  " 

(do  ((a  0  (  +  a  1))  (lcl  (min 

^  (-  (length  (car  1)) 

}•&  (-  pos  32)  ) 

75))) 

(  («*  a  lcl)  nil) 

(setf  (aref  disp  a) 

(aref  (car  1)  (+  a  (-  pos  32)))))) 


\uu  \  »a  *  pua*  V  *  O  A#  #  C*w*  *  mi  *  i  . 

75 

(+  (length  (car  1 ) ) 
<-  32  pos) ) ) ) ) 

((  =  a  lcl)  nil) 

(setf  (aref  disp  a> 

(aref  (car  1)  (-a  (-32  pos))))))) 

(print  disp) 

(do  ( (a  0  (+  1  a)  ) ) 

( (=  a  75)  nil) 

(set-f  (are-f  disp  a)  32)))) 

(1  (kwocl  w  (cdr  1))))) 


(setq  spac 


(de-fun 

wai 

ni  1 

Juseless  function 

(do 

( (i 

1  (+  1 

i  )  )  ) 

; outer  count 

(  (  = 

i  101) 

ni  1 ) 

(do 

( (a  0 

(+  1  a)  )  ) 

(  (=  a 

75)  nil) 

; inner  count 

(set-f 

(are-f  spac  a)  33)  )  )  ) 

i 


(cond 


gen-sent. 1 


program  to  read  in  a  text  file  and 
generate  slist  —  a  list  of  sentences. 
Each  sentence  is  one  string,  ending  with 
a  punctuation  mark. 

Any  text  from  an  asterisk  to  the  end  of 
the  line  is  ignored. 


***  FILES  MUST  END  A  *  (TILDE)  ON  A  NEW  LINE  *** 


This  is 

a  finite  automaton  with  4 

states 

Stats 

Meaning 

S 

Before  start  of  sentence 

M 

In  a  sentence 

01 

Red  a  period  (46) 

02 

Red  " .  " 

€ 

Reading  the  rest  of 

a  comment 

(defun  appchar  nil  (setq  si  (string-append  si  ch))) 
(defun  list-ascii  nil  (pprint  (list-as  32))) 


(defun  list-as  (c)  (cond  ( (=  c  128)  nil) 

(t  (cons  ' ( , c  , (string  c))  (list-as  (+  c  1)))))) 


(defun  gen-space  (&aux  a) 


; awkward  function  which  returns  32 


(setq  a  (make-stri ng-i nput-stream  "  ")) 
(read-char  a) ) 


un  gen-sentences  (filename) 

5  outputs  -  none 

;side  effects:  questions,  statements,  exclamations 
5  all  integer,  and  together  add  up  to  the 

$  number  of  sentences  red. 

5  slist  —  a  list  of  sentences  of  the  form 

j  ("The  cat  is  in  the  hat"  "Where’s  the  cat?") 


(setq  slist  nil) 

(setq  questions  0) 

(setq  statements  0) 

(setq  exclamations  0) 

(prog  (stream  state  si  ch) 

(setq  stream  (open  filename)) 
(setq  state  ’S> 

(setq  si  "") 

1  oop 

(setq  ch  (read-char  stream) ) 


jinit  output 


; open  file 


(if 

(=  ch 

126)  (close  stream) ) 

j  eof  mark 

(if 

(=  ch 

126)  (return  nil)) 

;  eof  mark 

(if 

(**  ch 

42)  (setq  state  ’C)> 

(comment  —  ignore 

(if 

(and  ( 

=  ch  10)  (equal  state 

’C)  ) 

(setq 

state  ’S>) 

ll  end  of  comment 

(if 

(and  ( 

*  ch  10)  (equal  state 

’01)  ) 

(setq 

state  ’02)) 

(convert  "."♦newline 

(if 

( -  ch 

10)  (setq  ch  (gen-space)))  (LF  — >  SPACE 

3£v'(if 

(=  ch 

13)  (go  1 oop ) ) 

(ignore  CR 

(=  ch 

39)  (go  loop) ) 

(throw  away 

(if 

(=  ch 

44)  (go  1 oop ) ) 

(throw  away 

(if 

( =  ch 

35) 

(# 

(progn 

nil 

(setq 

si  (string-append  si 

" C POUND-SI GN] " ) ) 

(go 

1  OOP )  )  ) 

|t 


VWUI  IU 


\  yCL|UCli  L. •  I  a  Wfwp  i  t 

<t  (setq  si  (string  ch) ) 

(setq  state  ’M> 

(go  loop) ) ) ) 

( (equal  state  ’M) 

(cond  ((or  (=  ch  33)  (=  ch  63) )  ? "?"  or  " ! " 

(tally-sentence-type  (string  ch)) 

(setq  slist  (append  slist  (list  si))) 

(setq  state  ’S) 

(go  1 oop ) ) 

( (=  ch  46)  ;  M 

(setq  state  ’Ql) 

(go  loop) ) 

(t 

(appchar ) 

(go  1 oop ) ) ) ) 

((equal  state  '01) 

(cond  ( (=  ch  32)  ; "  " 

(setq  state  '02) 

(go  loop) ) 

(t 

(setq  si  (string-append  si  "."))  ;-from  before 
(appchar ) 

(setq  state  ’M) 

(go  1 oop ) ) ) ) 

((equal  state  '02) 

(cond  ( (=  ch  32) 

(tally-sentence-type  ".") 

(setq  slist  (append  slist  (list  si))) 

(setq  state  ’S) 

(go  loop) ) 

(t 

(setq  si  (string-append  si  " .  "))  .from  before 

(appchar ) 

(setq  state  ’M) 

(go  1 oop ) ) ) ) 

((equal  state  ’C)  (go  loop)))) 


(mapcar  #'print  slist) 
nil) 


(defun  tally-sentence-type  (type) 

(cond  ((equal  type  " . " )  (setq  statements  (+  statements  1))) 

((equal  type  "!")  (setq  exclamations  (+  exclamations  1))) 
((equal  type  "?" >  (setq  questions  (+  questions  1))))) 


(defun  gen2  nil  (setq  slist2  (gen2r  slist))  (mapcar  #’print  slist2)  nil) 


(defun  gen2r  (1) 
>4cond  ( (car  1 ) 
vJJJ  (prog  ( 


; recursi ve 


(prog  (is  os  i  ch)  ;is  :  input  string 

; os  :  output  string 
; i  :  index  of  is 
;ch  :  current  char 
( setq  i s  (car  1 ) ) 

(setq  os  ” ( ! ") 

(setq  i  0) 

1  oon 


\  WUI  IU  X  \  — 


A  ^  a  un^  vi  •  *  ^  «  / 

(setq  os  (string-append  os  "!)")) 

(return  (cons  os  (gen2r  (cdr  1)))))) 

(setq  ch  (aref  is  i)> 

(if  (and  (>  ch  96)  (<  ch  123)) 

(setq  ch  (-  ch  32) ) >  ;  UPF'ERFY 

(cond  ( (=  ch  32)  jiwhite  space 

(setq  os  (string-append  os  "5  5"))  ;word  delimiter 

(do  ( (a  i  (+  a  1 )  )  ) 

((not  (=  (are-f  is  a)  32))  (setq  i  a))) 

5  skip  white  space 

(go  loop) ) 

(t  ;  a  word 

(setq  os  (string-append  os  (string  ch))) 

(setq  i  (+  1  i)) 

(go  1 oop ))))))) 


(de-fun 


count-words  (filename) 

; outputs  -  none 
;side  effects: 


questions,  statements,  exclamations 
all  integer,  and  together  add  up  to  the 
number  of  sentences  red. 

alist  —  a  list  of  pairs,  each  of  the  form 
("WORD"  3).  Ordering  is  arbitrary 


4 


(setq 
(setq 
(setq 
(setq 
prog 
(setq 
(setq 
(setq 
1  oop 
(setq 
(if  (  = 
(if 
(if 
(if 


alist  nil) 
questions  0) 
statements  0) 
exclamations  0) 

(stream  state  si  ch) 

stream  (open  filename)) 
state  ’S) 
si  "") 


(if 

(if 

(if 

(if 

(if 

(if 


ch  (read-char  stream) ) 
ch  126)  (close  stream)) 

(  =  ch  126)  (return  nil)) 

(=  ch  42)  (setq  state  ’C)) 

(and  (=  ch  10)  (equal  state  *C)> 
(setq  state  ’  S)  ) 

(and  (=  ch  10)  (equal  state  ’Ql)> 
(setq  state  ’02)) 

(setq  ch  (gen-space))) 
(go  1 oop ) ) 

(go  loop) ) 

(go  1 oop ) ) 


(open  file 


; eof  mark 
jeof  mark 
j comment  — 


l gnore 


(  = 
(  = 
(  = 
(  = 
(  = 


10) 
13) 
39) 
44) 
35) 
(progn  ni 
(setq  si 


ch 

ch 

ch 

ch 

ch 


;end  of  comment 

; convert  " . "+newl i ne  to 
5LF  — >  SPACE 
j i gnore  CR 
; throw  away 
5  throw  away  "  ,  " 

;# 


(string-append  si  "CP0UND-SIGN3")) 


(go  1 oop  > ) ) 


(cond 


(  (equal  state  ’ S) 

(cond  ((equal  ch  32)  (go  loop)) 

(t  (setq  si  (string  ch)) 

(setq  state  ’M) 

(go  1 oop ) ) ) ) 

(  (equal  state  ’  M) 

(cond  ((or  (■  ch  33)  (*  ch  63))  ?  "',n  or 

(tally-sentence-type  (string  ch)) 
(setq  sent2  (car  (gen2r  (list  si)))) 
(ruff  sentC) 

(setq  state  ’S) 


it  |  it 


\  \  —  W  •  I  "TU  / 


m 


yU 

v  *»< 


(setq  state  *  Ql) 
(go  loop) ) 

(t 

(appchar ) 

(go  loop) ) ) ) 


((equal  state  ’Ql) 

(cond  ( (=  ch  32)  ; "  " 

(setq  state  'Q2) 

(go  loop) ) 

(t 

(setq  si  (string-append  si  “."))  jfrom  before 
(appchar ) 

(setq  state  ’M) 

(go  loop) ) ) ) 


((equal  state  'G2) 

(cond  ( (=  ch  32) 

(tal 1 y-sentence-type  ".") 

(setq  sent2  (car  (gen2r  (list  si)))) 

(ruff  sent2) 

(setq  state  ’  S) 

(go  1 oop ) ) 

(t 

(setq  si  (str ing-append  si  " ) )  ;from  before 
(appchar ) 

(setq  state  'M) 

(go  1 oop ) ) ) ) 


((equal  state  ’C)  (go  loop)))) 


nil) 


£  (defun  write-list  (1  filename) 

■  (setq  stream  (open  filename  Zdirection  : output)) 

(mapcar  #'  (lambda  (a)  (format  stream  'w‘/. "  (car  a)  (cadr  a)))  1) 

(close  stream) 

’ "File  written. ") 


y  / 


1 


I 


£ 


WORDS 


READ  .TXT  FILE,  GENERATE 


FILE 


4/14/86 


INPUT  FILE  FORMAT: 


OUTPUT  FILE  FORMAT: 


PLAIN  TEXT  FILE 

TEXTFILE  OF  LINES.  EACH  LINE  IS  30  BYTES. 
BYTES  1-25  ARE  THE  WORD.  BYTES  26-30  ARE 
THE  FREQUENCY.  FREQUENCY  IS  RIGHT  JUSTIFIED. 


100  DEFINT  A-Z : ON  ERROR 
120  DIM  HASHC 1000,8] ' 

1 

130  DIM  W#C3000]' 

140  DIM  WC 3000] ' 

145  DIM  SC 3000] 

147  DIM  TEMP C 3000] 

1  W# CO]*"  ":  W=0' 

MM  SLC  13]  , SRC  13] 

;  WHICH.  FUNCTIONS 
500  *****************  M* 
505  CLS: PRINT  "WORDS 
510  GOSUB  2000  'read  v 

520  GOSUB  7000  'generi 

530  GOSUB  9000  'write 


GOTO  12000: COLOR  15,0 

HASH  TABLE:  10  DEEP,  index  into  W#C]  and  WC] 
HASHLENGTH= 1 000 : H ASHDEPTH=B 

3000  WORDS 

requency  count 

pointers  into  W#C],  sorted 


W=#  o-f  words  so  -far 
C13]  'recursion  stack 
M=1  '1  -for  alphabetically,  2  -for  -f 

****  MAIN  PROGRAM  ************* 

*DS  FIND  WORDS  IN  TEXTFILE 

'read  words 
‘generate  list 
'write  list 


recursion 


■for  -frequency 


SMl  END 

'****************  read  input  ***************** 

2010  PRINT:  INPUT  "enter  input  -filename  CDO  NOT  ENTER  EXTENSION. 
]  "  ,  I  # 

2015  IF  INSTR ( If , ". " )  THEN  BEEP: GOTO  2010 
2020  OPEN  "I" , 1 , I#+". TXT": GOTO  2050 
2030  BEEP: PRINT  "ERROR.  Try  again. " : GOTO  2010 
2050  ' 

2055  WORD#="" 

2060  INW0RD=0 

2070  WHILE  Af<  AND  N0T(E0F(1)> 

2080  A#= INPUT#  ( 1  ,  1 )  :  IF  A#OCHR#<10>  AND  A#<  >"*"  THEN  PRINT  A#; 

2085  IF  A#="*"  THEN  LINE  INPUT  #1, A#: GOTO  2300  'Comment 
2090  IF  INSTR  <  "  ,.{?/«#«<  ()  "+CHR#  ( 10)  +CHR#  ( 13)  ,  A#)  THEN  2150 
2100  'not  a  space 

2110  IF  INWORD  THEN  WORD#=WORD#+A#  ELSE  WORD#* A#: INW0RD=-1 

2120  GOTO  2300 

2150  'space  or  delimiter 

2160  IF  NOT  INWORD  THEN  2300  ELSE  GOSUB  3000: WORD#= " " : I NW0RD=0 
2300  WEND 
2330  CLOSE  1 
2340  PRINT 


.TXT 


ASSUMED 


2980  PRINT  USING  "#####  unique  words" ;W 

2990  PRINT  USING  "#####  total  words" j TOTAL. WORDS 

2999  RETURN 

3000  '****************  ADD  A  WORD  *********************** 

' INPUT  WORD#  WORD  TO  ADD 

30 VO  'OUTPUT  updates  HASH#C],  W#C],  WC ] 

3022  GOSUB  6500 

3025  TOTAL. WORDS=TOTAL. WORDS* 1 

3030  HASH#=WORD#: GOSUB  4000 

3040  1=0: WHILE  W# C HASP C HASH , I ] ] < >WORD#  AND  HASHCHASH , I ] >0: I  =  I  + 1 : WEND 
3050  IF  HASHCHASH, I] =0  I  HEN  3090 


*********************** 


3000 

3<A»0 

3022 

3025 

3030 

3040 

3050 


3060  W C HASH C HASH . I ] ]=WC HASH C HASH 


ASHCHASH, I ] ]*1 


3070  RETURN 


6500 

6510 

6520 

6530 

6540 

6550 


7010 

7020 


8000 

8002 

8005 

8010 

8020 


***************** 


****************** 


T  J\0  W=W+ 1 :  W*  C  W  3  =W0RD* :  W  C  W  3  =  1 :  HASH  C  HASH ,  I  3  =W 
.  RETURN 

4000  * ***********  COMPUTE  HASH  FUNCTION  ***************** 

4010  'INPUT  HASH*  string  to  hash 

4020  'OUTPUT  HASH  integer  0. . HASHLENGTH- 1 

4030  HASH=0: FOR  I  =  1  TO  LEN (HASHf) : HASH=HASH+ASC (MID# (HASH* ,1,1)): NEXT 
4040  HASH=HASH  MOD  HASHLENGTH 
4050  RETURN 

6500  '******************  GIVEN  WORD* ,  CHECK  IF  NUM  ****************** 

6510  TM  =  1 i BUSTED=0: WHILE  BUSTED=0 

6520  IF  INSTR ( " 1234567890. ", MID* (WORD* , TM, 1 > ) =0  THEN  BUSTED=- 1 : GOTO  6540 
6530  IF  TM=LEN ( WORDt )  THEN  BUSTED=-2  ELSE  TM=TM+ 1 
6540  WEND 

6550  IF  BUSTED=-2  THEN  WORD*= " C NUMBER 3 "  ELSE  UP* =WORD* : GOSUB  1 7000: WORD*=UP* 
6570  RETURN 

7000  '***************  GENERATE  SORTED  LIST  ***************** 

7010  'OUTPUT  SCI. .W3 

7020  FOR  I  =  1  TO  W: SC  I  3  =  1 : NEXT: PRINT 

7030  SP=0:SLC03=1: SR C03=W: GOSUB  8000  'SP=STACK  POINTER 
7040  LOCATE  , 1,1 : PR I NT  “  RETURN 

8000  ****************  RECURSIVELY  SORT  SCSLCSP3 . . SRCSP3 3  ************ 

8002  LOCATE  ,SF+1 ,0: PRINT  " .  "{ 

8005  'PRINT  SPACE* (SP) "enter  SORT C " SL C SP 3 ; SR C SP 3 " 3 " ; : Q=SP : GOSUB  50000 
8010  IF  SRCSP3=SLCSP3  THEN  RETURN 

8020  IF  SR C SP 3  >SL C SP 3  +  1  THEN  8050  ELSE  P1=SLCSP3 : P2=SRCSP3 : 

,vv  ON  WHICH. FUNCTION  GOSUB  10000,11000 

■So  IF  NOT  RESULT  THEN  SWAP  SCP1 3  ,SCP23 :  RETURN  ELSE  RETURN 

8050  SF=SF+ 1 :  SL  C  SP  3  =SL  C  SP- 1  3  :  SR  C  SP  3  =  ( SR  C  SP- 1  3  +SL  C  SP- 1  3  )  /  2 :  GOSUB  8000 


***************  GENERATE  SORTED  LIST  ***************** 


8050 

8052 

8060 

8062 

8070 

8080 

8085 

8090 

8100 

8110 


8300 

8310 

8410 

9000 

9010 

9050 

9062 


ON  WHICH. FUNCTION  GOSUB  10000,11000 

IF  NOT  RESULT  THEN  SWAP  SCP1 3 ,SCP23 : RETURN  ELSE  RETURN 
SF=SF+1 : SL C SP 3  =SL C SP— 1 3 : SRCSP3= (SRCSP-1 3+SLCSP-l 3 ) /2: GOSUB  B< 
LOCATE  ,  SF  +  1 ,0: PRINT 

SL  C  SP  3  =SR  C  SP  3  + 1 : SR  C  SP  3  =SR  CSF  -1  3  :  GOSUB  8000 :  SF'=SP- 1 
LOCATE  ,SP+1 ,0: PRINT  "  ; 

P 1  =SL C SP 3  :  P2=  1  +  < SL C SP 3  +SR C SP 3  )  /2:  MIDF'0INT=P2-1 
FOR  T  =  SLCSP3  TO  SR  C  SP  3 
GOSUB  10000 

IF  RESULT  THEN  TEMP=SCP1  3  :  P1=P1+1  ELSE  TEMF'=SCP23 :  F'2=P2+1 
TEMFCT3=TEMP 


IF  PI  >MIDF'OINT  THEN  FOR  II  =  T+l  TO  SRCSP 
P2=P2+ 1 : NEXT : T=SRC SP3 : GOTO  8300 
IF  F'2 >SR C SP 3  THEN  FOR  II  =  T+l  TO  SRCSP 

P 1 =P 1  + 1 : NE X T : T=SR  C  SP  3 : GOTO  8300 
NEXT 

FOR  T  =  SL C SP 3  TO  SRCSP 3  :  SCT3=TEMF'CT3  :  NEXT 
RETURN 

'******************  WRITE  SORTED  LIST  ****** 
OPEN  "0" ,2, I*+". WOR" 

FOR  I  =  1  TO  W 

PRINT  #2, Wf CSC  13  3  TAB (26) PRINT  #2 , USING 


TO  SR  C  SP  3  :  TEMP  C  1 1  3  =S  C  F'2  3  : 


SRCSF  3  :  TEMF’C  1 1  3=SCF'l  3  : 


********************* 


"#####" ; WCSC 133 


9080  NEXT 
9085  CLOSE  : 
9090  RETURN 


10000 

>vV° 

rJtj  20 

10030 
1 1000 
1 1010 
1 1 020 
11030 


come  before 


***************** 


'**************  ALPHABETICALLY  ***************** 
'INPUT:  PI,  P2  pointers  into  SC  3 

'OUTPUT:  RESULT  —  -1  i -f  PI  should  come 

RESULT=W*  C  S  C  P 1 3  3  <  W*  CSCP233: RETURN 
***************  BY  FREQUENCY  *********** 

'INPUT:  PI,  P2  pointers  into  SC  3 

'OUTPUT:  RESULT  —  -1  i i  PI  should  come 

IF  WCSCP1  3  3  >WCSCF’23  3  THEN  RESULT=-1  ELSE 
RESULT =W* C  S C  P 1 3  3 <  W* CSC P2 3  3  ELSE  RESULT=0 


before  P2 
IF  WCSCF'l  3  3=WCSCP: 


THEN 


-KrdS'*  ■ 


WWW 


SmrS 


«  .  %  1  .  1 


MERGE 


Program  to  merge  .  WOR  -files  into  a  .  MRG  -file 


^3 

v.*i 


p 


100  DEFINT  A-Z : ON  ERROR  GOTO  12000 

110  DIM  F$C100!  'up  to  100  input  file  names 

500  COLOR  7,0s CLSs PRINT  "MERGE  Program  to  merge  .WOR  files  into  a  .MRG 

file 

510  PRINT  : PRINT 

520  INPUT  "ENTER  FILE  TO  CONTAIN  THE  MERGED  DATA  COMIT  THE  .MRG  FILE  EXT. D  ",M$ 
530  IF  INSTR (M$ , " . " ) >0  THEN  BEEP: GOTO  520  ELSE  OM#=M$: M$=M#+ " . MRG" 

540  OPEN  "I",1,M* 

550  CLOSE  1 

560  PRINT  M$"  ALREADY  EXISTS.  ":  INPUT  "DO  YOU  WANT  TO  MERGE  FILES  INTO  IT?  ",0$ 
570  Q*=CHR* (ASC <Q*+"  ")  AND  223) 

5B0  IF  Q*="N"  THEN  OPEN  "R" , 1 , 0M*+" . BAK" : CLOSE  1:KILL  OM*+".BAK": 

NAME  Mt  AS  0M»+". BAK"s OPEN  "O" , 1 , M* : CLOSE  1 : GOTO  700 
590  IF  Q*<>"Y"  THEN  BEEP: GOTO  560 
700  'NO  PROBLEM 

705  OPEN  "R" , 1 ,M$: CLOSE  1: PRINT 

710  INPUT  "ENTER  FILE  NAME  COMIT  .WOR  EXTENSION!  TO  READ,  [RETURN  TO  START!  ",F$ 
720  IF  F*=""  THEN  1000 

730  OPEN  "I" , 1 ,F*+". WOR": CLOSE  1 : F=F+1 : F$CF!=F$: GDTD  710 
740  BEEP: PRINT  "FILE  NOT  FOUND ! ": GOTO  710 
1000  'PROCEED  WITH  MERGE 

1010  OPEN  "R"  ,  1  ,  "7. ‘/.MERGE.  TMP":  CLOSE  1:KILL  "-///.MERGE.  TMP" 

FOR  I  =  1  TO  F 


1100 

1110 

1490 

1500 


ME  PRINT  F$CI! 

1040  NAME  M*  AS  "-///.MERGE.  TMP" 

1050  OPEN  "I"  ,  1 ,  "'///.MERGE.  TMP"  :GOSUB  3000 

1060  OPEN  "I",2,F$CI!+  ".WGR":GOSUB  4000 

1070  OPEN  "0",3,M* 

1080  AW*=LEFT$(A*,25)  :  BW$=LEFT *■  <  B*  ,  25 ) 

1090  IF  AW*=BW$  THEN  IF  A*=".?"  THEN  1490  ELSE  PRINT  #3,  AW$ ;  TAB  (26)  ;  : 

PRINT  #3, USING  "##### " ; VAL (MI D* <B* , 26 ) ) +VAL (MID* ( A$ , 26) ) : GOSUB  3000: 
GOSUB  4000: GOTO  1080 

1100  IF  AW*<BW*  THEN  PRINT  #3, A* : GOSUB  3000: GOTO  1080 

1110  IF  BWtCAW*  THEN  PRINT  #3, B$: GOSUB  4000: GOTO  1080 

1490  CLOSE  1,2,3 

1500  KILL  "-///.MERGE.  TMP" 

1510  NEXT 

1590  END 

3000  'NEW  LINE 

3010  LINE  INPUT  «1,A* 

3020  RETURN 
4000  'NEW  LINE 
4010  LINE  INPUT  #2,Bt 
4020  RETURN 

12000  '**##*#**#******#*#*  ERROR  TRAPPING  #***#*****■*##*#*#*#**#** 

12010  IF  ERR=53  AND  ERL=540  THEN  RESUME  700 

12020  IF  ERR-53  AND  ERL=730  THEN  RESUME  740 

1SPK50  IF  ERR=62  THEN  IF  ERL=3010  THEN  A*=" RESUME  3020 

lWCGo  IF  ERR=62  THEN  IF  ERL*4010  THEN  B*=" ! " :  RESUME  4020 


12999  ON  ERROR  GOTO  0:STOP 


mmxm 


SORT-NUM 


READ  A  .MRS  FILE  SORTED  ALPHABET  I CALL , 
WRITE  A  .NUM  FILE  SORTED  BY  FREQUENCY 


'  i 

^'.ii 


5$ 

V*V 

*w 


•«v 

(V  i 


1  ' 

2  * 


4  * 

5  ' 

100  DEFINT  A-Z 
105  DIM  NC 20000! 

110  CLS: PRINT  "SORT-NUM  SORT  BY  FREQUENCY 

120  PRINT  t INPUT  "ENTER  INPUT  FILE  COMIT  THE  . MRG  EXTENSION!  "fIf 

125  IF  I NSTR ( I >0  THEN  BEEPs GOTO  120 

130  PRINT  s INPUT  "ENTER  OUTPUT  FILE  COMIT  THE  .NUM  EXTENSION!  ",0t 
135  IF  INSTRtO*, ". " > >0  THEN  BEEP: GOTO  130 
137  PRINT 

140  OPEN  "I", 1 , I*+".MRG” 

150  WHILE  NOT  EOF ( 1 ) 

160  LINE  INPUT  41 , A* : N=VAL (MID4 ( A* , 26 > > i NCN!=NCN!+1 : IF  N>MAX  THEN  MAX=N 

170  WEND 
180  CLOSE  1 

1B5  OPEN  "0" ,2,0*+" .NUM" 

190  FOR  I  *  MAX  TO  1  STEP  -1 
200  IF  NCI  1=0  THEN  400 


210 

215 

220 

230 


OPEN  "I" , 1 , I*+".MRG" 

LOCATE  , 1 : PRINT  I; 

FOR  J  =  1  TO  NCI! 

LINE  INPUT  #1,A*:IF  VAL ( M I D$ ( A4 , 26 ) ) = I  THEN  PRINT  #2, At 
ELSE  GOTO  230 

NEXT 
CLOSE  1 


‘I 

1 


NEXT 
1L0SE  2 
4_'.-  END 


2 


SENTENCE 


READ  .TXT  FILE,  GENERATE  .SEN  FILE 


4/14/86 


6  * 

100  DEFINT  A-ZtON  ERROR  GOTO  1 2000:  COLOR  15,0 
500  *****************  MAIN  PROGRAM  ************* 

505  CLS: PRINT  "SENTENCE  .  CREATE  .SEN  FILE  FROM  .TXT  FILE 

560  GOSUB  2000: CLOSE 
790  GOTO  560 

2000  *****************  find  sentences  ***************** 

2010  PRINT: INPUT  "ENTER  FILE  NAME  [OMIT  .TXT  FILE  EXTENSION]  [RETURN  TO  END] 
4: IF  14=""  THEN  END 

2015  IF  INSTR ( 14 , " . " )  THEN  BEEP: GOTO  2010 
2020  OPEN  "i ",  1 , I4+". TXT": GOTO  2050 
2030  BEEP.-PRINT  "ERROR.  Try  again.  "iGOTO  2010 
2050  OPEN  "O" ,2, I 4+ ".SEN" 

2055  STATE4="S" 


II 


2060  A4="  " : S4=" " 

2070  WHILE  A4<  >"~"  AND  NOT < EOF (1)) 

2075  IF  INKEY4=CHR4 (3)  THEN  STOP  'CONTROL  C 

2080  A4= I NPUT 4(1,1): A= ASC ( A4 )  loop 

2090  IF  AOIO  AND  A4<>"*"  THEN  PRINT  A4; 


2095 
2100 
21 10 


2150 


2160 

2170 


2180 


2190 

2200 

2210 


IF  A=9  THEN  A=32:A4="  " 

IF  A4="*"  THEN  LINE  INPUT  # 1 , A4 : ST ATE4= " S " : GOTO  2900 
IF  A=10  THEN  A=13  'convert  CR  to  LF 

IF  A* 13  AND  STATE4="Q1 "  THEN  STATE4="Q2" 

IF  A= 13  THEN  A=32:A4="  " 

IF  INSTR (",'" ,A4)  THEN  2900  'throw  away  garbage 

IF  A4="#"  THEN  S4=S4+" C POUND-SIGN] " : IF  STATE4="Q1"  OR  STATE4="Q2' 
THEN  STATE4="M" : GOTO  2900 

IF  STATE4="S"  THEN  IF  A=9  OR  A=32  THEN  2900  ELSE  STATE4="M" : 


IF  STATE4="M" 
IF  STATE4="M" 
IF  STATE4="M" 
IF  STATE4="G!1" 
IF  STATE4="Q2" 


S4=A4: GOTO  2900 


THEN  IF  A4="?"  THEN  QUEST I ONS=QUEST I ONS+ 1 : ELSE 
IF  A4=" ! "  THEN  EXCLAMAT I ONS=EXCLAMAT I ONS+ 1 
AND  INSJR  (’*?!  "  ,A4)  >0  THEN  S=S+1: PRINT  #2,S4: 


STATE4="S" : GOTO  2900 

THEN  IF  A4=" . "  THEN  STATE4="Q1" 


GOTO  2900  ELSE  S4=S4+A* 


GOTO  2900 

THEN  IF  A4="  "  THEN  STATE4= "Q2" : GOTO  2900  ELSE 
S4=S4+". "+A4: STATE4="M" : GOTO  2900 

THEN  IF  A4="  "  THEN  STATEMENTS=STATEMENTS+ 1 : S=S+ 1 : 
PRINT  #2 ,St: STATE4="S" : GOTO  2900  ELSE  STATE*="M": 
S4=S4+".  " +A4 : GOTO  2900 


2220  PR I NT  " ERROR ! " : STOP 

2900  'end  of  loop 


2*9.50  WEND 
2952  CLOSE  1 
2955  PRINT 
'2960  PRINT  USING 
2970  PRINT  USING 
2975  PRINT  USING 
RETURN 


"#####  quest i ons " ; QUESTIONS 
"#####  statements" j STATEMENTS 
"#####  exc  1 amat i ons " * EXCLAMAT I ONS 


l2w*0  '*#***************  ERROR  TRAPPING  *************** 
12010  IF  ERL=2020  THEN  RESUME  2030 
12900  ON  ERROR  GOTO  0 
16540  RETURN 


17000  '**********  UPPERFY  UP4  *********** 
17010  'INPUT  AND  OUTPUT:  UP4 


17020  FOR  U  ■  1  TO  LEN (UP*) i UP=ASC (MID* (UP* ,U , 1 > > *  IF  UP>96  AND  UP< 123 
THEN  MID*<UP*,U, 1>«CHR* (UP-32) 

$30  NEXT* RETURN 

>00  FOR  KKK  -  SLCQ3  TO  SRCQ3: PRINT  W*CSEKKK3 D "  " | : NEXT: PRINT  : RETURN ' debug 


CONCORDANCE 


GENERATE  CONCORDANCE 


14/86 


100  DEFINT  A-Z  > ON  ERROR  GOTO  12000 
102  WIDTH  "LPT Is", 255 
105  DIM  SSC1003 

108  PI *=CHRS ( 27 ) ♦ " - " +CHR* ( 1 >  t  P2*=CHR# ( 27 ) + " - " 
110  CLS SPRINT  "CONCORDANCE 

120  PRINT  s INPUT  "ENTER  FILENAME  FOR  SELECTED 


+CHR# (0>  'begin  and 


underscore 


WORD  LIST  COMIT  . SEL  EXTENSION] 


. CNC  EXTENSION]  ",0* 


130  IF  F*=""  THEN  END 

135  IF  INSTR (S# , " . " )  THEN  BEEP: GOTO  120 
140  OPEN  "I" ,1,F*+".SEL" 

145  PRINT 

150  INPUT  "ENTER  SENTENCES  FILENAME  COMIT  .SEN  EXTENSION]  CRETURN  TO  START]  ",St 
155  IF  S»=""  THEN  190 

160  IF  INSTR (St , ">  THEN  BEEPs GOTO  150 

170  OPEN  " I " , 2 , S#+ " . SEN " : CLOSE  2: S=S+1 s StCS]=Sf : GOTO  150 
180  BEEP i PR I NT  "FILE  NOT  FOUND !" s GOTO  150 

190  'PRINT  SPRINT  s INPUT  "ENTER  OUTPUT  FILENAME  COMIT  .CNC  EXTENSION]  ",0* 

195  'IF  INSTR (St, ". ">  THEN  BEEP: GOTO  190 
197  'OPEN  "O" ,3,0$+". CNC" 

200  BEGIN 
205  GOSUB  1000 
210  WHILE  NOT  EOF ( 1 ) 

LINE  INPUT  #1  ,W*s  W*=LEFT$  (W*  ,25)  +  "  "« W*=LEFT* (W* , INSTR (W* , "  "  )  >  s 
I  UP$=W.T: GOSUB  17000: W*="  "+UP* 

»  IF  LC>52  THEN  GOSUB  1000 

226  LPRINT  "  "Pit; W*; P2*s LPRINTs LC=LC+2: PRINT  W* 

230  FOR  I  =  1  TO  S 

240  OPEN  " I " , 2,S#C I  ]  +  ". SEN" 

245  PRINT  "  "SfCI] 

250  WHILE  NOT  EOF (2) 

260  LINE  INPUT  #2,UP*:G0SUB  17000:S$="  "+UP *+”  ":L=1 

270  P  =  INSTR (L,S*,W*> : IF  P=0  THEN  300 

280  F'$=SF'ACE$  (60)  +S#+SPACE*  (60)  s  P=P+60 

282  IF  LC >59  THEN  GOSUB  1000 

290  LPRINT  S*CI]"s  "  TAB  ( 1 1 )  MI  D*  (P*  ,  P-54 , 54 )  "  "F'l*; 

MID*(W*  ,2,LEN(Wt) -2)  ;P2*;  "  "  5  MID*  (P*  ,P+LEN  (W* )  ,55) 
LC=LC+1 : L=P-59: GOTO  270 

300  WEND 

310  CLOSE  2 


3  c.  o 
340 
350  I 
990 
1000 
1010 
1020 


NEXT 

LPRINT  : LPRINT : LC=LC+2 

WEND 

LPRINT  CHR* (12) 

END 

******  PAGE  HEADING  ****** 

PAGE=PAGE+l: IF  PAGE>1  THEN  LPRINT  CHR* (12); 
LPRINT  CHR*<18>"  CONCORDANCE  LIST 


****** 


"DATE*, TIME* , "PAGE” PAGE 


1£30  LPRINT  CHR* (15) 
jS>\0  LPRINT 
iVi’o  LC=3 
1060  RETURN 

12000  *********  ERROR  TRAPPING  ************ 
12010  IF  ERR=53  AND  ERL=170  THEN  RESUME  180 
12999  ON  ERROR  GOTO  OsSTOP 

17000  '**********  UPPERFY  UP#  **********< 


*********** 


17010  'INPUT  AND  OUTPUT:  UP* 


f20  FOR  U  B  1  TO  LEN(UP*>  i UP=ASC (MI D* (UP* , U , 1 )  >  :  IF  UP>96  AND  UPC123 
THEN  MID* (UP*  tU, 1 ) =CHR*  < UP-32) 

30  NEXT: RETURN 


PRINTER 


PRINT  FILES  ON  PRINTER 


1WDEFINT  A-ZsON  ERROR  GOTO  12000:WIDTH  "LPT  1  255 

105  DIM  A#C1003 

107  CLS SPRINT  " PR INTER" s PRINT  : PRINT  t INPUT  "COMPRESSED  PRINTING?  " ,A*s IF  A*«"Y 
THEN  LPRINT  CHR$<15)» 

108  PRINT 

110  INPUT  "ENTER  FILE  TO  PRINT  C INCLUDE  FILE  EXTENSION!  [RETURN  TO  START 3  ",A* 

115  IF  A#=" "  THEN  200 

120  OPEN  "I", 1, At: CLOSE  1 

130  A=A+1* A*CA3=A$sG0T0  110 

200  'PRINT 

205  PRINT  SPRINT  "PRINTING _ 

210  FOR  I  =  1  TO  A 
215  PRINT  A$CI3 

220  OPEN  " I " , 1 , A$  C I  3 : PAGE=0 : GOSUB  1000 

230  WHILE  NOT  E0F(1):LINE  INPUT  #1 ,  A$s LPRINT  A*sLC»LC+ls 

IF  LC>57  THEN  GOSUB  1000 


IF  LC>57  THEN  GOSUB 

240  WEND 

250  CLOSE  # 1 s  LPR I NT  CHR* (12); 

260  NEXT 

280  END 

1000  'NEW  PAGE 

1005  PAGE=PAGE+ls  IF  PAGEM  THEN  LPRINT  CHR$(12>; 

1010  LPRINT  AtCI3 ,, ,DATE#M  "TIME*"  PAGE"PAGE 

1020  LPRINT 

1^£D  LC=3 

1 W  RETURN 

12000  ‘ERROR  TRAPING 

■0  IF  ERR=53  AND  ERL=120  THEN  BEEP: PRINT  "FILE  NOT  FOUND. " s RESUME  110 
ON  ERROR  GOTO  Os  STOP 


1 


"TIME*" 


PAGE"PAGE 


a  v^v 

j§ii 


<  unu.  Lsr 


dictionary  naintenance  utility 


symbols: 


DICTIONARY  -  list  of  symbols.  Each  symbol  is  a  word.  Sorted  al phabet i cal  1  y 
^Jisi&T-TABLE  =  list  o-f  translation  entries 


a  symbol  could  have  the  -following  properties  defined: 


GRAMCODES  =  grammar  codes 
FRAME  *  frame 

XLAT  =  list  of  translation  entries  where  the  symbol  appears  in  the  FROM  part 
ALIAS  =  list  of  transaltion  entries  where  the  symbol  appears  in  the  TO  part 


all  symbols  have  the  property  LIST-POINTER  defined. 

the  value  of  this  property  is  the  cons-cell  in  dictionary  whose  car  is  the 
symbol  itself 

that  is  <eq  symbol  (car  (get  symbol  'list-pointer)))  is  true  for  all  words. 


(setq  def aul t-gramcodes  ' (N) ) 
(setq  word-i s-i n-di cti onary  nil) 
(setq  *unsaved-changes*  nil) 


(defun  init-dictionary  (setq  dictionary  '(a)  xlat-table  nil)) 


(defun  write-dict  nil  (write  all  dictionary  data  to  file 

-j*|(let  ((dict-s  (open  "DICTIONARY"  :direction  :output)) 

«P  (xlat-s  (open  "XLAT-TABLE"  sdirection  :output>>> 

(setq  *print-length*  200) 

(setq  *pr i nt-1 evel *  10) 

(mapcar  #" (lambda  (x)  (write-word  x  dict-s))  dictionary) 
(close  dict-s) 

(pprint  xlat-table  xlat-s) 

(close  xlat-s) > 

(setq  *unsaved-changes*  nil)) 


(defun  write-word  (word  stream) 

(format  stream  "~s'v>("  (cons  word  (get  word  ’ gramcodes ) ) ) ) 


(defun  write-entry  (entry  stream) 
(format  stream  entry) ) 


(defun  read-diet  nil 

(let  ((dict-s  (open  "DICTIONARY"))) 

(setq  dictionary 

(do  ((1  (read  dict-s  nil  nil) 

(read  dict-s  nil  nil)) 

(di ctionar  nil)) 

((null  1)  (reverse  dictionar))  ;if  done,  return  rev. 

(setq  dictionar  (cons  (car  1)  dictionar))  (prepend  word 

(setf  (get  (car  1)  'gramcodes)  (edr  1))))  (gramcodes 


(close  dict-s) 

(maplist  #'put-pointer  dictionary)) 
(setq  -"-unsaved-changes*  nil) 

'(, (length  dictionary)  words)) 


(LIST-POINTER 


(defun  read-xlat  nil 

Het  <  (et-rcam  Innen  "  Yl  AT-TAPI  F  "  )  >  > 


A?? 


oM 


*  j 

W 


.A 


v»»i 

»\n 


.*} 

tffi 

»!»? 


*•!* 


I 

<!rtj 

d 


1^1 


m 


(setq  xlat-table  (read  stream)) 

(mapcar  #’add-entry  xlat-table)) 

'(,  (length  xlat-table)  entries  in  the  translation  table)) 


e-fun  create-entry  (entry)  ;add  translation  entry  i-f  necessary 

^  (i-f  (member  entry  (get  (caar  entry)  ’xlat)  :  test  tt’equal)  ;  i  -f  exists 
nil 

(progn 

(add-entry  entry) 

(setq  xlat-table  (cons  entry  xlat-table))))) 


(de-fun  add-entry  (entry)  {update  XLAT  and  ALIAS 

(mapcar  #’ (lambda  (symbol)  (add-entry-to->:lat  symbol  entry)) 
(car  entry) ) 

(mapcar  #’ (lambda  (symbol)  (add-entry-to-al i as  symbol  entry)) 
(cdr  entry) ) > 


(defun  add-entry-to-x 1  at  (symbol  entry) 

(setf  (get  symbol  ’xlat)  (cons  entry  (get  symbol  ’xlat))) 
(make-sure  symbol ) ) 


(defun  add-entry-to-al i as  (symbol  entry) 

(setf  (get  symbol  'alias)  (cons  entry  (get  symbol  ’alias))) 
(make-sure  symbol  ) ) 


(defun  make-sure  (symbol)  {make  sure  that  symbol  is  in  the  dictionary 

(unless  (get  symbol  ’list-pointer)  (add-word  symbol))) 


(defun  convert-1 ex-to-di ct  nil 

{convert  from  LEX . L  —  the  old  format  file 

{  to  DICTIONARY  —  the  new  format  file 

(let  ((stream  (open  "lex.l"))) 

(eval  (read  stream) ) 

(mapcar  #’ convert-word  lexicon) 

(setq  lexicon  nil) 

(makunbound  ’lexicon) 

(close  stream) 

(maplist  #’ put-poi nter  dictionary) 

(wr i te-di ct ) ) ) 


(defun  convert-word  (word-entry  &aux  word) 

(setq  word  (read-f rom-str i ng  (car  word-entry) ) ) 
(add-word  word) 

(setf  (get  word  ’gramcodes)  (cdr  word-entry) ) ) 


(defun  add-word  (word) 

(unless  (get  word  ’list-pointer) 

(if 

(after  word  (car  (last  dictionary))) 

(let  (  (cons-cell  (list  word))) 
h.  (rplacd  (last  dictionary)  cons-cell) 

y/  (put-pointer  cons-cell)) 

(prog  (cons-cell) 

(setq  cons-cell  (member  word  dictionary  :test  #’bef 
(rplacb  cons-cell 
(cons  word 

(cons  (car  cons-cell) 

(cdr  cons-cell)))) 


ore)  ) 


i  r  v'  ■  *  •  ' 


FI 


(put-pointer  (cdr  cons-cel 1 ) ) ) ) ) ) 


(de-fun  add-word  1  (word)  (assumes  ascending  order 

(rplacd  (last  dictionary)  (list  word)) 

(put-pointer  (last  dictionary) ) ) 


(de-fun  dmu  (^optional  iword) 
(highlight  ’on) 

(format  t 
(highlight  ’off) 

(prog  (command 

(word  (if  iword  iword 


(Dictionary  Maintenance  Utility 


DICTIONARY  MAINTENANCE  UTILITY' 


(word  (if  iword  iword  (car  dictionary) ) ) 

(by  default  start  with  1st  word 

tword 

line) 

loopl 

(small-menu  word) 

(setq  command  (read-char) ) 

(format  t  "'V'C'V%"  command) 

(case  (toupper  command) 

(<#\E)  (Edit  word 

(format  t  "Enter  word  to  replace  ^s  >"  iword) 

(setq  tword  (read-line))  (retype  for  now 

(unless 

(null-string  tword)  (blank  line 

(prog  ((codes  (get  word  ’ gramcodes) ) ) 

(setq  tword  <read-f rom-str i ng  tword)) 

(unless 

(eq  tword  word)  (no  change 

(if  (delete-word  word)  (if  deletable 

(add-word2  tword  codes) ) ) ) ) ) 


( (#\G)  (edit  Grammar  codes 
(setf  (get  word  ’gramcodes) 

( i nput-gramcodes  word  (if  (get  word  ’gramcodes) 

(get  word  ’gramcodes) 
def aul t-gramcodes) ) ) ) 


( (#\D)  (Delete  this  word 
(if  (delete-word  word) 

(format  t  "'vs  del eted .  ■'*%"  word) 

(format  t  "~s  cannot  be  deleted'v%"  word))) 


(  (#\N)  (  Ne::t  word 

(if  word-i s-i n-di ct i onary 

(setq  word  (cadr  (get  word  ’list-pointer))) 

(setq  word  (car  (member  word  dictionary  (test  #’ before )))) ) 


((#\P)  (Previous  word 
(if  word-i s-i n-di cti onary 

(setq  word  (previous-word  word)) 

(setq  word  (car  (member  word 

(reverse  dictionary) 
: test  #’ after )))) ) 


((#\J)  (Jump  to  a  different  word 
(format  t  "Enter  new  word)" ) 


(setq  word  (read)) 
(format  t  )  ) 


I 


SO! 


(■format  t  "Enter  new  word>") 

(setq  tword 

(read- f  rom-str i ng 
(string-append 
(read-1 ine) 

"nil")))  Snil  if  pressed  return 

(cond  ((null  tword)  nil)  ;-forget  it 

( (consp  (get  tword  'list-pointer))  ; already  a  word 
(■format  t  "'vs  already  exists.  *7."  tword) 

(setq  word  tword)) 

<t  (go  ahead,  create 

(add-word2  tword  de-f aul t-gramcodes) 

(setq  word  tword)))) 

( (#\A)  ; A1 i ases 

(setq  word  (alias-menu  word))) 

(<#\X)  ; XI  at 

(setq  word  (xlat-menu  word))) 

( (#\T)  ;Translation  entries 

(setq  word  (transl at-menu  word))) 

( (#\B)  (Browse  semantic  network 

(browse  word ) ) 

(  (#\M)  (Modify  default  grammar  code  -for  new  words 

(setq  de-f  aul  t-gramcodes 

(input-gramcodes  '  the-def  aul  t  de-f  aul  t-gramcodes ))  ) 

( (#\S)  ; Save  everything  to  disk 

(save-to-di sk ) ) 


^  ((#\Q>  ;Ouit 

(i-f  *unsaved-changes* 

(i-f  (y-or-n-p  " 
Latest  changes  have  not  been  saved. 
Write  to  disk  before  quitting?  ") 

(save-to-di sk) ) ) 
(format  t  ) 

(return  ’*thanks*)) 


((#\!))  (delete  frame  for  this  word  and  don't  male  faces 

(<#\?>  ( hel p 

(big-menu  w  -rd)  ) 

(otherwise  (beep)) 


)  ;  case 
(go  1 oop  1 ) )  ) 


(defun  delete-word  (word)  (returns  NIL  if  not  deletable 

(or  T  if  deleted 

(if  (deletable  word) 

.'>£•  (prog  <) 

(rplacd  (get  (previous-word  word)  ’list-pointer) 

(cdr  (get  word  'list-painter))) 

(setf  (qet  word  'list-pointer)  nil) 

(s»etf  (g^t  word  ’gramcodes)  nil) 

(setq  *unsaved-changes*  t) 

(r  eturn  t )  ) 


*‘$l 


'■  >*»■ 


a 

4 

•• 

•V 


(de-fun  add-word2  (new-word  default-codes) 

(setf  (get  new-word  ’gramcodes) 

( i nput-gramcodes  new-word  default-codes)) 
(add-word  new-word) 

(setq  ♦unsaved-changes*  t)) 


Sfefun  i nput-gramcodes  (word  default)  Jreturns  gramcodes 
(let  (gramcodes) 

(If  (single  default)  (setq  default  (car  default))) 

(format  t  "Enter  grammar  codes  for  ‘v,s,  [return  for  'vsD  >" 
word 
def aul t ) 

(setq  gramcodes  (string-append  " ( "  (read-line)  ")"))  .wrap  w/paren; 
(if  (=  (length  gramcodes)  2) 

(setq  gramcodes  (format  nil  " (~s) "  default))) 

(setq  gramcodes  (read-f rom-str i ng  gramcodes) ) 

(if  (listp  (car  gramcodes)) 

(setq  gramcodes  (car  gramcodes)))  ;remove  if  not  needed 

aramcodes ) ) 


(car  def aul t ) ) ) 
‘v,s,  [return  for 


(read-line)  " ) " ) )  (wrap  w/paren: 


(defun  small -menu 


(format  t 

"'vc"  (if  (■ 

(hi  ghl i ght 

’  on ) 

(format  t 

"~s"  word) 

(highl ight 

'off) 

(format  t 

"~c"  (if  <i 

(format  t 

"  ~s  ~a  ~a 

( word ) 

if  (get  word  'alias) 


t  "~c"  (if  (get  word  ’xlat)  26  32)) 
t  "  ~s  'va  ~a<E  GDNPJCAXTBMSQ  !  ?>" 
(get  word  'gramcodes) 

(if  (deletable  word)  "♦empty*"  "") 

(if  (setq  word-i s-i n-di ct i onary 

(and  (listp  (get  word  ' 1 i st-poi nter ) ) 

(eq  (car  (get  word  'list-pointer)) 
word ) ) ) 


32)  ) 
IBM 


"♦NOT  IN  DICT*  " ) ) ) 


(defun  big-menu  (word) 

(format  t  "^’/.current  word: 
(highlight  ’on) 

(format  t  "^s"  word) 
(highlight  ’off) 

(format  t  ",  grammar  code; 
Menu  choices: 


'vadel etabl e.  ~a 


E 

G 

D 

N 

P 

J 

C 

A 

X 


Edit  this  word 

edit  Grammar  codes  of  this  word 
Delete  this  word 
Next  word  alphabetically 
Previous  word  al phabeti cal  1 y 
Jump  to  a  different  word 

Create  new  word  + - 

Aliases  !  choices  A  and  X  have  both 

Xlat  !  been  replaced  by  choice  T 


i 


T  Translation  entries  + - + 

J?^Br  owse  semantic  network 

f-^Orlodi  f  y  default  grammar  codes  for  newly  created  words 
S  Save  everything  to  disk 
0  Quit  DMU 

!  delete  the  frame  associated  with  this  word.  I  mean  it! 
?  help,  (this  menu) 


*>58 


word 


ifll« 


- v^e\. 

(eq  (car  (get 
word ) ) 


«*•=-*-  r'  w  - 


word  ’list-pointer)) 


***  THIS  WORD  IS  NOT  IN  THE  DICTIONARY  ***  " ) ) ) 


(de-fun  toupper  (char)  jupperfy  character 

(i-f  (and  ( >=  char  #\a) 

(<=  char  #\z ) ) 

(-  char  32) 
char ) ) 

(de-fun  null-string  (string)  (=  (length  string)  0)  ) 

(de-fun  single  (1)  (and  (listp  1) 

(null  (cdr  1))))  ;is  list  o-f  length  1 

(defun  before  (si  s2)  <string<  (symbol -name  si)  (symbol-name  s2) ) ) 

(de-fun  after  (si  s2)  (string'!  (symbol-name  s2)  (symbol-name  si)'1' 

(defun  previous-word  (word) 

(car  (member  word  (cons  nil  dictionary)  : test  #’eq — >) ) ) 

(defun  eq — >  (word  element) 

(eq  word  (cadr  (get  element  ’list-pointer)))) 

«fun  next-word  (word)  (cadr  (get  word  ’list-pointer))) 

fun  put-painters  nil  (maplist  #’ put-poi nter  dictionary)  nil) 


(defun  put-poi nter  (cons-cel 1 ) 

(setf  (get  (car  cons-cel 1)  ’list-pointer)  cons-cell)) 


(defun 

(and 


deletable  (word) 

(listp  (get  word  ’ 1 i st-poi nter > ) 
(eq  (car  (get  word  ’list-pointer)) 
wor  d ) 

(not 


(or 


(get  word  ’>;lat) 

(get  word  ’alias) 

(get  word  ’frame))))) 


?word  is  in  diet. 


Jword  is  empty 


(defun  save-to-disk  nil 
(write-dict) 

;******  WRITE  FRAMES  TO  DISK  HERE11'  ******* 

) 


(defun  read-f rom-di sk  nil 
_  (values 

(read-diet) 

(read-::  1  at ) 

;*******  READ  FRAMES 


****** 


(defun  alias-menu  (word) 

f'fnrmaf  *  "Ploaco  lies  rhrvire 


iload  "alias. lsp"  to  use 

T  4  nr  t  r  anrl  ,1  f  i  r>n  en<*r  i  P'c: 


the  real  thine: 


word ) 


(defun  x  1  at -menu  (word)  ;load  "xlat.lsp"  to  use  the  real  thing 

(format  t  "Please  use  choice  T  for  translation  entries.'''-/.") 
word ) 


fun 

(case 


i 


hi ghl i ght 
swi tch 


(swi tch ) 
(’on  (send 
(’off  (send 


*termi nal -i o* 
♦termi nal -i a* 


:  Set-attribute  15)) 

: set-attri  bute  7)))) 


; transl at . l sp 


string  translation  stuff 


(de-fun  transl at-menu  (word)  ;  return  current  word 

(prog  () 

loopl 

(show-translations  word) 

(smal  1  -menu-t  word) 

(setq  command  (read-char) ) 

(format  t  command) 

(case  (toupper  command) 

( (#\C>  ;Create  a  translation  entry 
(create-translation-entry) ) 


( (#\D)  (Delete  one  Xlat  entry 

(delete-translation-entry  word 

(append  (get  word  ’ ::  1  at )  (get  word  ’alias)))) 

( (#\N)  (Next  word 

(if  word-i s-i n-di cti onary 

(setq  word  (cadr  (get  word  ’list-pointer))) 

(setq  word  (car  (member  word  dictionary  :test  #’ before) ))) ) 

( (#\P)  (Previous  word 

(if  word-i s-i n-di cti onary 

(setq  word  (previous-word  word)) 

(setq  word  (car  (member  word 

(reverse  dictionary) 

: test  #’after))))) 

((#\J)  (Jump  to  a  different  word 

(format  t  "Enter  new  word)") 

(setq  word  (read)) 

(format  t  "~7.")> 

( (#\B>  (Browse  semantic  network 

(browse  word ) ) 

( <#\M)  (Modify  default  grammar  code  for  new  words 

(setq  def aul t-gramcodes 

( i nput-gramcodes  ’the-default  def aul t-gramcodes) )  ) 


((#\S)  (Save  everything  to  disk 
(wri te-dict ) 

(******  WRITE  FRAMES  TO  DISK  HERE1 1 ! 


(1  of  2)  ****** 


(  <#\0)  (Quit 

(return  word) ) 

((#\?)  (help 

(big-menu-t  word)) 

(otherwise  (beep))) 
(go  1 oop 1 ) ) ) 


U^pfun  small -menu-t  (word) 

V^-Ksetq  word-i  s-i  n-di  cti  onary 

(and  (listp  (get  word  ’list-pointer)) 

(eq  (car  (get  word  ’ 1 i st -poi nter ) ) 
word ) ) ) 

(format  t  "Translation  menu:  ") 

(highliqht  ’on) 

(format  t  "~s"  word) 

(highlight  ’off) 


(defun  big-menu-t  (word) 

(format  t  " 

Translation  menu  choices: 

C  Add  a  translation  entry 
D  Delete  a  translation  entry 
N  Next  word  alphabetically 
gOgy  P  Previous  word  alphabetically 

J  Jump  to  a  different  word 
B  Browse  semantic  network 
S  Save  everything  to  disk 
Q  Quit  XI at  menu,  return  to  main  DMU 
?  help,  (this  menu) 

(defun  show-transl ati ons  (word) 

(prog  ( (xlats  (append  (get  word  ’xlat)  (get  word  ’alias)))) 
(if  xlats 
(progn 

(format  t  "Translation  containing  "> 

(highlight  ’on) 

(format  t  "~s"  word) 

(highlight  ’off) 

(format  t  word) 

(dotimes  (i  (length  xlats)) 

(format  t  11  ^d^c^a  ‘va'v7." 

(+  i  1) 

#\tab 

(words  (car  (nth  i  xlats))) 
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(words  (cdr  (nth  i  xlats))))))))) 


lefun  create-transl ati on-entry  nil 
p(prog  (lhs  rhs) 

^  (format  t  "Enter  word(s)  to  tr 
(setq  lhs  (read-f rom-stri ng  (s 
(if  (null  lhs) 


(setq  lhs 
(if  (null 
nil 
(prog 
(if 


translate  from)") 
(string-append  "(" 


(read-line)  ")">>> 


(if  (consp  (car  lhs))  (setq  lhs  (car  lhs))) 

(format  t  "Enter  word(s)  to  translate  to  ([RETURN!  ro  hypenate)>") 
(setq  rhs  (read-f rom-string  (string-append  "("  (read-line)  ")"))) 
(if  (null  rhs)  (setq  rhs  (hyphenate  lhs))) 

(if  (consp  (car  rhs))  (setq  rhs  (car  rhs))) 

(create-entry  (cons  lhs  rhs)))))) 

(defun  del ete-transl at i on-entry  (word  list) 

(if  (null  list) 

(progn 
(beep ) 

(format  t  "~7.")) 

(prog  (response) 

(format  T  "Enter  entry  number  to  delete-") 

(setq  response  (read-f rom-str i ng  ( str i ng-append  (read-line)  "  ()")) 
(if  (numberp  response) 

(if  (and  ( >=  response  1) 

(<=  response  (length  list))) 

(del ete-entry 1  (nth  (1-  response)  list)) 

(beep)) 

(if  response  (beep)))))) 

(defun  del ete-entry 1  (entry) 

(setq  xlat-table  (delete  entry  xlat-table)) 

(mapcar  #’ (lambda  (word)  (delete-entry2  word  entry))  (car  entry) ) 

(mapcar  #’ (lambda  (word)  (del ete-entr y3  word  entry) )  (cdr  entry))) 


(defun 

(i 


(stri ng-append  (read-line) 


(>">)> 


(setf  (get  word  ':<lat)  (remove  entry  igei:  word  >.ia t>>)) 

(de-fun  delete-entry3  (word  entry)  ; remove  entry  from  alias  list 

(setf  (get  word  'alias)  (remove  entry  (get  word  'alias)))) 

(defun  words  (1) 

^^(  string-1  eft-trim 

(string-right-trim 

II  j  It 

(format  nil  "'s"  1 ) ) ) ) 

(defun  hyphenate  (1)  jreturns  a  list  of  one  element  — 

;the  atoms  of  1  hyphenated 
(let  ((string  (format  nil  ,,‘vs"  1))) 

(dotimes  (i  (length  string)) 

(if  (eq  (aref  string  i)  #\space) 

(setf  (are f  string  i)  #\-) ) > 

(read-f rom-stri ng  string))) 


jstill  to  add 


A  character  level  lexical  analyzer 


*ul tra-verbose* 


nil) 


(de-fun  preproc  (1) 

(if  *ul tra-verbose*  (format  t  "'''*/.")) 
(rplacd  (last  1)  ' (*end-of -sentence*) ) 
(maplist  #’ handl e-cons-cel  1  1) 

(rplacd  (nthcdr  (-  (length  1)  2)  1)  nil) 
1  ) 


;get  rid  of  token 


(defun  handle-cons-cel 1  (cons-cell) 

(unless  (numberp  (car  cons-cell)) 

(do*  ((candidates 
(remove-i f 

(lambda  (entry)  (neq  (caar  entry)  (car  cons-cell) ) ) 
(get  (car  cons-cell)  ’xlat)> 

(cdr  candidates) ) 

) 


(  (endp  candidates)  nil) 

(setq  lhs  (caar  candidates)) 

(if  (they-match  (caar  candidates)  cons-cell) 

(proan 

(if  *ul tra-verbose* 

(perf orm-an-ex tremel y-verbose-f unction  (car  candidates) ) ! 
(appl y-transl ati on  (cdar  candidates) 

cons-cel 1 

(length  (caar  candidates))) 

(setq  candidates  nil)))))) 


(defun  thev-match  (lhs  list) 

(cond  ((null  lhs)  t)  Send  of  lhs 

((null  list)  nil)  ; premature  end  of  list 

(  (eq  (car  list) 

(car  lhs) ) 

(they-match  (cdr  lhs) 

(cdr  list)))))  ; recurse 


(de-fun  appl  y-transl  at.  i  on  (rhs  list  still-left) 

jreplace  STILL-LEFT  atoms  from  LIST  by  elements  of  rhs 
(cond  ( (nul 1  rhs) 

(cond  ((>  still-left  0)  ;delete  from  old  list 


(rplacb  list  (cdr  1 i st ) ) ; del ete  car 
(apply-translation  nil  list  (1-  still -left))))) 


<  (  >  sti  3  1  -1  ef  t  0) 

; substitute,  do  not 

i nsert 

(rplaca  list  (car 
(appl y-transl ati on 

rhs)  ) 
(cdr 

rhs) 

(cdr  list) 

(1-  still- 

left) ) ) 

(  (=  sti I  1-left  0) 
(rplacb  list  (cons 

(car 

rhs) 

(cons  (car 

list)  (cdr 

list))))  : i nser t 

(appl y-transl ati on 

(cdr 

r  hs ) 

(cdr  list) 

0 )  )  )  ) 

• 

(defun  per  f  orm-an-ex  tremel  y-verbose- f  uric  t  i  on  (entrv)  ishcw  each  substitution 
(format  t  ,,'va  *wc  'va'''*/." 

(words  (car  entry)) 
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(words  (cdr  entry) ) ) ) 


1  e:.an .  1  sp 


lexical  analyzer  4/25/B6 


(de-fun  1  ex  an  (string) 
(mapcan 

#' make-parse-node 
(preproc 

(read-f rom-str i ng 
(str i ng-append  " (  " 


; assumes  no  punctuation  (esp, 


string  ")"))))) 


and  # ) 


(de-fun  make-parse-node  (word) 

(prog  ( (gramcodes  (get  word  ' gramcodes) ) ) 

(i-f  (null  gramcodes) 

(progn 

(■format  t  "I  don't  know  the  grammar  codes  -for  word) 

(dmu  word) 

(setq  gramcodes  (get  word  ’gramcodes) ) ) ) 

(return  ' ( ( 

, gramcodes 

(.(-format  nil  ,,'vs"  word))  :  "WORD”  -for  now 

(,  (i-f  (equal  (get  word  ’gramcodes)  '(prep)) 

(format  nil  ,,'vs"  word)))" 

.  0 )  )  )  )  ) 


Our  initial  goal  has  been  to  gain  insight  into  the  vocabulary  in  the 
tactical  air  arena,  and  to  determine  what  type  of  questions,  in  what 
form,  a  user  of  the  expert  system  might  ask.  Using  the  WORDS  utilities, 
we  have  generated  two  lexicons  and  a  concordance  based  on  the  following 
input: 

(1)  Sample  questions  from  AFIRHS. 

(2)  Sample  questions  from  TASKING. 

(3)  Sample  questions  from  dialogues  between  George  Devorshak, 
SYNERGY,  and  SRA. 

(A)  Sample  questions  generated  in  an  experiment  conducted  at  SRA,  in 
which  the  questioners  believed  that  they  were  querying  a  com¬ 
pleted  system,  whereas  in  actuality  the  answers  were  generated 
by  a  human  expert. 

(5)  A  chapter  discussing  the  Tactical  Air  Command. 

Inputs  (1)  through  (A)  are  included  here. 


Copies  of  inputs  (1)  -  (4)  described 
in  Section  II 


-12- 
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***  Questions  -from  USAFE  TASKING  OVERVIEW 


«•  HQ  USAFE  level  peace 

Is  EUCOM  tasking  appropriate  for  USAFE? 

How  should  USAFE  support  EUCOM? 

IjR&urh  units  will  be  tasked? 
ywFplan  or  tasking  sufficient? 

Is  the  likely  outcome  worth  planned  or  tasked  resources? 

Is  a  logistics  concept  developed  or  can  one  be  developed? 

How  can  USAFE  respond  without  augmentation? 

Can  the  selected  units  be  supported? 

Is  there  sufficient  augmentation? 

Can  augmentation  be  improved? 

Can  USAFE  respond  by  augmenting  forces  and  support? 

Can  Logistics  support  Operations  Concept? 

Which  resources  are  needed  to  support  the  Logistics  Concept? 

Can  the  force  be  sustained? 

Can  airlift  support  Logistics  requirements? 

‘•at  are  current  USAFE  movement  requirements? 

; t  support  can  MAC  and  Military  Sealift  Command  provide  from  CONUS  and 
*  r  -theater? 

Can  ground  transport  requirements  be  filled? 

What  capability  can  be  provided  to  resupply? 

What  closure  times  can  be  supported? 


requi re? 

quarterly  schedule  for 


sortie  production 


•***  Wing  level  peace 
What  resources  does  the  tasking 
What  is  the  expected  annual  and 
Can  the  tasked  units  respond? 

WRtoch  aircrews  are  to  be  assigned  to  the  flying  schedule? 

resources  are  requi  red /avai  1  able  to  support  the  schedule? 

Which  aircrews  are  most  in  need  of  training  during  the  coming  quarter' 
Which  aircrews  are  qualified  for  alert  duty? 

Are  aircrews  adequately  briefed  and  aware  of  mission? 

Are  aircraft  properly  prepared? 


What 
What 
What 
What 
What 
contract 
How  many 


is  the  daily  flying  schedule? 
is  the  generation  flow  plan? 

are  the  schedules  for  AGS  personnel  and  weapons 
is  the  best  allocation  of  maintenance  personnel 
is  the  effect  of  tasking  on  the  expected  annual 
for  sortie  production? 

aircraft  can  be  generated  for  the  next  schedule 


assemblers? 

for  the  coming  week 

and  quarterly 


Is  the  scheduled  aircraft  ready  for  launch? 

Can  returned  aircraft  be  turned  for  next  take  off? 

What  are  the  training  objectives? 

What  is  the  training  schedule  for  quarter /month/week? 

Do  individuals  meet  performance  standards? 

What  is  current  and  projected  workload? 

What  will  degrade  repair  performance? 

Is  the  service  process  satisfactory? 

Are  munitions  requirements  satisfied? 

Are  fuel  requirements  satisfied? 

Are  critical  supplies  available  to  support  tasking? 

What  is  the  availability  of  critical  base  support  services? 
ch  critical  facilities  require  maintenance? 


facilities  critical  to  tasking  be  maintained' 


***  HO  USAFE  Crises 

Which  resources  are  needed  at  MOBs,  COBs,  or  FOLs  to  perform 
mission  or  tasking? 


,  l,v 


.Vi 
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What  is  the  unit  response  to  tasking? 

Which  resources  are  needed  to  support  sorties  required? 

Where  should  resources  be  placed? 

Which  resources  should  be  augmented? 

Which  shortfalls  need  attention? 

What  resource  requirement  changes  and  shortfalls  affect  current  plans  and 
/tasking? 

Hf|#ch  resources  can  be  resupplied  to  meet  tasking? 
the  resources  be  moved? 

. .  support  is  needed  to  ensure  missions  or  taskings  are  performed? 

What  shortfalls  are  critical? 

What  must  be  moved? 

What  alternate  transportation  can  be  used? 

What  alternate  routes  can  be  used? 


$1 


$ 
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I 
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***  WING  level ,  crises 
Is  the  ATO  feasible? 

What  is  the  daily  flying  schedule? 

Which  aircrews  are  to  be  assigned  to  flying  schedule? 

Which  weapons  are  required? 

What  are  possible  limitations  to  accomplishment  of  tasking? 
Which  aircrews  are  qualified  for  alert  duty? 

Are  aircrews  adequately  briefed  and  aware  of  mission? 

Are  aircraft  properly  prepared? 

Have  the  missions  been  properly  planned? 

Are  aircraft  properly  serviced? 

Can  recovered  aircraft  be  turned  to  meet  next  take  off? 

Can  the  tasked  units  respond? 

What  resources  are  required? 

What  is  the  daily  flying  schedule? 

«at  is  the  generation  flow  plan? 

■t  are  the  schedules  for  AGS  personnel  and  weapons  assemblers' 
w  many  aircraft  can  be  generated  from  the  next  schedule? 

Is  the  scheduled  aircraft  ready  for  launch? 

Can  returned  aircraft  be  turned  for  next  take  off? 

What  are  the  training  objectives? 

What  is  the  training  schedule  for  quarter /month/week? 

Do  individuals  meet  performance  standards? 

What  is  the  current  and  projected  workload? 

What  will  degrade  repair  performance? 

Is  the  repair  process  satisfactory? 


**  From  body  of  introduction 


Why?  How  did  you  get  that  answer? 
How  do  you  know  that  airplanes  fly? 


fall  those  in  that  Air  Base,  how  many  can  fly  air  to  ground  missions? 
the  ones  we  have  in  the  central  region,  how  many  are  at  Bitburg? 


**#  From  "Typical  XOOIM  Question" 

What  kind  of  airlift  do  I  have? 

What  kind  of  TAC  air  am  I  going  to  be  looking  for? 
Where  am  I  going  to  be  looking  for  it? 

How  fast  can  I  get  my  logistics  tail  up  and  running? 


■***  From  sample  questions  —  tabular  form 
Co  I  have  required  SLC? 

If  we  don't  have  enough  built,  can  we  build  them? 

How  many  sorties  do  I  have?  SCL’s? 

Is  there  anything  in  the  task  that  will  affect  sortie  generation  capability? 
Can  they  reach  target? 

Where  is  target? 

Is  there  any  extraordi nary  routing  that  will  affect  this? 

Can  the  aircraft  reach  home  after  this  mission? 


How  many  mission  qualified  aircrews  do 
How  many  defense  suppression  qualified 


you  have? 
do  you  have' 


there  any  airfield  constraints  on  sortie  generation? 

Do  I  have  sufficient  runway  to  launch  and  recover  my  aircraft’ 
Do  I  have  access  via  runways? 

What  is  the  status  of  the  arresting  gear? 


€11, 


pH. 


Can  you  fuel  my  airplanes?  Can  you  refuel  the  airplane  on  time? 
How  many  can  I  fuel  sheltered? 

If  all  can't  be  sheltered,  schedule  refueling  without  movement. 


Are  there  any  maintenance  constraints  on  sortie  production  Capability? 
Do  I  have  enough  people  to  launch  and  recover? 


Are  there  any  intelligence  factors  that  would  influence  sortie  production? 


*  rr>av» 

How  may  sorties  are  needed  to  main  3  suppression  caps  from  first  light 
to  dusk  with  SCL  1  and  2? 

Whats  the  transit  time  to  and  from  each  cap  point?  **  note  "Whats" 
Whats  the  flying  window? 

How  long  can  aircraft  remain  in  each  cap? 

What  launch  and  recovery  pattern  is  needed  to  do  the  mission? 


What  is  SCL  1  and  2? 

What  are  the  limiting  factors  within  our  control  which  we  can  change  to 
mission? 

What  are  the  limiting  factors  within  higher  headquarters  control  that 
Jf^uil d  be  changed  to  do  the  mission? 


K 


do  the 


How  many  sorties  are  needed  to  man  3  lane  cap  portions  with  a  minimum  of  two 
aircraft  from  light  to  dusk  with  SCL? 

Whats  the  transit  time  to  and  from  each  cap  point? 

Whats  the  flying  window? 

How  long  can  aircraft  remain  in  each  cap? 

What  launch  and  recovery  pattern  is  needed  to  do  this  mission? 
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Arc  there  any  constraints  on  sortie  generations? 

Do  I  have  sufficient  runway  to  launch  and  recover  my  aircraft? 

Do  I  have  access  via  taxi ways? 

What  is  status  of  the  arresting  gear? 

JVfej^here  anything  in  the  task  that  will  affect  sortie  generation  capability 
they  reach  target? 

Where  is  target? 

Is  there  .any  extraordinary  routing  that  will  affect  this? 

Can  the  aircraft  reach  home  after  this  mission? 

Do  I  have  required  SLC? 

If  we  don;t  have  enough  built,  can  we  build  them? 

How  many  sorties  do  I  have?  SCL's? 

Do  I  have  enough  dumb  bombs  to  support  140  sorties  tomorrow? 

If  we  don't  have  enough  built,  can  we  build  them? 

How  many  sorties  do  I  have?  SCL's?  ***  note  —  have  sorties 

How  many  air — to-ground  sorties  can  you  produce  tomorrow  with  dumb  bombs 
with  morning,  late  afternoon  and  evening  drops  without  air  to  air 
ref uel ing? 

How  many  FMC  aircraft  do  we  have? 

How  many  PMC  aircraft  do  we  have? 

How  may  wargoers  do  we  have?  *c 


How  many  air — to-ground  qualified  aircrews  do  you  have? 
How  may  qualified  people  of  you  have  that  can  do  this? 


Are  there  any  airfield  constraints  on  sortie  generation? 


Can  we  man  3  lane  CAP  .posi t i ons  with  a  minimum  of  two  aircraft  from 
light  to  dusk  with  SCLB? 


Can  we  man  3  supression  caps  from  first  light  to  dusk  with  SCL  1  and  2? 


*******************  SAMPLE  QUESTIONS  FROM  AFIRMS  ********************* 


***  HO  USAFE 

lat  are  the  trends  for  the  tasked  missions 
J^r  time  for  USAFE  Central  Region  Forces? 


I* 


relative  to  one  another  and 


Approximately  how  many  sorties  are  tasked  for  Counter  Air,  CAS/BAI, 
and  Interdiction  on  Day  5?  Day  10? 


How  many  total  sorties  are  required  on  Day  5?  Day  20?  Day  30? 


What  missions  are  the  various  Central  Region  fighters  tasked  for  and  how  many 
sorties  for  each  mission? 

How  many  sorties  of  BAI  and  CAS  are  tasked  for  Central  Region  A-7D  and  A10A 
aircraf t? 

How  many  sorties  were  tasked  for  all  missions  and  Mission  Design  Series  (MDS) 


What  are  the  trends  of  MDS  sorties  in  this  OPDRD  relative  to  one  another  and 
time? 

Approximately  how  many  sorties  are  F-4  and  F-16  aircraft  tasked  to  fly  at 
Day  1?  Day  10 

How  many  total  sorties  are  required  on  Day  5?  Day  15?  Day  30? 


Enat  i  s  the  integrated  resource  capability  over  time  to  support  the  tasking 
with  the  current  assets? 

On  what  day  does  the  capability  shortfall  first  occur? 

Approximately  how  many  sorties  can  be  flown  on  Day  30?  What 
percentage  is  that  of  the  tasking  on  Day  10? 


What  is  the  capability  of  aircraft,  spares,  JP-4,  and  munitions 
to  support  the  tasking  with  current  assets? 

Which  resource  constrains  first?  Second? 

If  sorties  are  not  flown  because  of  spares  does  fuel  remain  as  the 
second  constraining  factor? 


When  does  the  F-4E/G  spares  shortfall  start  to  occur? 
Does  the  shortfall  improve  before  Day  30? 


ijH^hat  are  the  critical  spares  for  the  F-4E/G  at  Day  15? 

Can  the  F-4E/G  drop  bombs  with  inoperative 
missile-firing  circuits  and  autopilots? 


How  many  tires  are  needed  to  satisfy  demand' 
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How  many  days  of  AGM-65  are  on-hand? 
How  many  of  MK-20? 


How  long  will  it  take  to  deplete  the  inventory  of  AIM-7  missiles  on  the 
*>5'jtral  Region? 

On  what  day  will  the  number  be  depleted? 

What  'lk.  the  status  of  MK.-B2  at  Spangdahlem? 

Are  there  any  munitions  that  are  below  the  threshold  level  at  Spangdahlem 
How  many  ABM-45  missiles  does  Spang  have? 

What  are  the  fuel  capability  trends  for  the  Central  Region  air  bases  with 
current  assets? 

When  do  the  shortfalls  start  to  occur? 

Which  bases  are  able  to  support  their  tasking  for  the  first  30  days? 

What  is  the  status  of  all  bases  in  the  Central  Region? 

What  is  the  runway  status  at  Ahlhorn? 

# 

What  problem  areas  exist  for  Central  Region  bases? 

What  status  factors  are  NMC  for  Central  Region  bases'7 

How  many  F-15  aircraft  are  at  Bitburg  and,  of  those,  how  many  are  FMC7 

What  Central  Region  bases  are  having  communication  problems"1 

Is  there  a  secure  voice  line  capability  at  Bitburg"1 

Are  any  NMC  Radar  Approach  Controls  in  the  Central  Region"' 

Is  there  a  RAPCON/Sround  Controlled  Approach  that  is  N^C"1 


How  many  f ighter/recce  aircra 
For  each  MDS,  how  many  aircra 
How  many  aircrew  members  have 


What  missions  are  the  various 


ft  are  needed  to  replace  losses" 
ft  remain"1 
been  lost"’ 


Central  Region  fighters  tas^ ed  for  and  how 


How  many  sorties  of  BAI  and  CAS  are  tasked  for  Central  Region  F-16A  and  A10- 
aircraf t? 


How  many  sorties  were  tasked  for  all  missions  and  Mission  Design  Series? 

^>?at  are  the  trends  of  MDS  sorties  in  this  OPORD  relative  to  one  another  and 
over  time? 

Approximately  how  many  sorties  are  F/RF-4  and  F-16 
aircraft  tasked  to  fly  at  Day  1?  Day  10? 

How  many  total  sorties  are  required  on  Day  5?  Day  15?  Day  30? 

Which  MDS  is  the  first  to  be  constrained  by  spare  parts? 

Does  the  shortfall  improve  before  Day  30?  By  Day  120? 


Will  theatre  jet  fuel  sustain  operations  until  CONUS  resupply 
Will  the  CONUS  resupply  sustain  operations? 

What  are  the  fuel  sustainability  trends  for  the  Central  Region 
with  current  assets? 

When  do  shortfalls  start  to  occur? 

ch  bases  are  able  to  support  their  tasking  for  the  first  30 


arr i ves7 


air  bases 


days? 


How  soon  can  the  munitions  from  outside  sources  support  USAFE? 
How  long  before  the  munitions  can  sustain  the  task? 


How  is  the  sortie  requirement  impacted  with  substitute  munitions  to 
maintain  the  target  kill  effectiveness  of  the  preferred  munition? 

Can  munitions  support  the  sortie  requirement? 

What  is  the  current  allocation  of  air-to-air  missiles? 

What  is  the  effect  on  the  commands  losing  missiles  in  the  proposed 
real  1 ocat i on7 

Which  Central  Region  bases  have  problems? 

How  many  aircraft  does  Spangdahlem  have? 

•;v\*ch  Central  Region  bases  have  fuels  problems'’ 

•r.  ■' 

What  is  causing  Spang’s  fuel  problem? 

Which  bases  have  problems  and  what  are  their  problem  ares” 


What  status  factors  are  NMC  for  Central  Region  bases? 

How  many  F-15  aircraft  are  at  Bitburg  and,  of  those,  how  many  are  FMC? 
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are  the  current  f ighter/recce  attrition  trends  changing  with  respect 
the  overall  trends? 


How  many  f ighter/recce  aircraft  have  been  lost  to  date? 


How  many  figther /recce  pilots  were  lost  yesterday? 


How  many  f ighter/recce  aircraft  have  been  lost? 


For  each  MDS,  how  many  aircraft  remain? 


How  many  aircrew  members  have  been  lost' 


What  is  the  DG  objective  for  each  type  of  munition? 


What  submunitions  are  included  in  each  category? 


In  what  year  will  the  Air  Force  be  able  to  meet  its  munitions  procurement 
objectives  in  each  of  the  mission  areas? 


***  Wing 
l^rat  are 


t  are  the  details  about  mission  number  lfS241? 


What  missions  are  tasked  with  Standard  Conventional  Load  UD062Q' 


How  are  the  tasked  sorties  divided  by  mission  type  for  the  Wing' 


How  many  BAI  sorties  where  tasked? 


•  What  is  the  required  turn  pattern  to  meet  the  ATO? 


What  is  the  minimum  number  of  aircraft  required  for  the  tasking? 


Can  the  Wing  fill  the  tasked  munitions  requirements  specified  in  the  ATO? 


If  there  is  a  shortfall,  which  munition(s)  is  the  problem? 


How  many  MK-B2s  were  specified  in  the  tasking' 


Are  there  any  munitions  shortfalls?  When? 


Are  there  any  rack  configuration  problems? 


How  many  A6li-65s  will  be  needed  by  launch? 
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What  targets  are  behind  the  Forward  Edge  of  Battle  Area? 


Is  the  approximate  distance  'to  the  target  within  range  o-f  the  aircraft 
jel  tank  configuration? 


m 


e  any  targets  in  areas  requiring  Border  Crossing  Authority? 
What  is  the  weather  at  the  alternates? 


What  is  the  capability  if  the  Wing  relative  to  tasking? 


*  i.e.  for  each  (potentially  limiting)  factor,  how  many  sorties  can  I  generate, 

*  given  that  the  tasking  said  to  generate  110  sorties. 


If  there  is  a  shortfall,  in  what  area  does  it  occur? 


Tan  the  Wing  aircraft  support  the  task? 

How  much  is  the  F-4G  shortfall  and  in  which  launches  does  it  occur? 
How  many  more  sorties  can  the  F-4E  support? 


How  many  mission  capable  F-4E  aircraft  will  be  available  at  0600Z,  20  May  B3? 
sPrthe  Non-Mission  Capable  aircraft,  which  category  is  the  largest? 


V 


at  is  the  reason  for  so  many  NMC  F-4G  aircraft? 
*  e.g.  supply,  maintenance,  or  both? 


What  is  the  supply  requisition  status  of  parts  for  each  NMCS 
or  Non-Mission  Capable  Both  aircraft?  -v 


Which  squadron  has  been  most  affected  bu  NMCS  pr  NMCB? 


D 


How  many  370-gallon  and  600-gallon  fuel  tanks  are  built  up? 
How  many  days  supply  of  fuel  tanks  remain? 


How  many  days  supply  of  TRAP  remain  if  they  are  consumed  at  a  given  rate 
per  day? 


What  is  the  amount  of  TRAP  on  hand"? 

*  Tanks,  Racks,  Adaptors,  and  Pylons 


How  much  of  the  ATO  can  the  aircrews  support? 

How  many  more  air  defense  missions  could  the  aircrews  support'’ 


What  MR  aircrews  are  available  by  mission  type? 
What  HR  aircrews  are  available  by  squadron? 


Can  the  ATO  be  supported  by  the  Fuels  Branch? 

mrthe  present  level  of  tasking,  how  many  days  of  JP-4  are  on-hand? 
How  much  -excess  capability  is  there  in  the  refueling  area?  * 

How  much  of  the  ATO  can  Refueling  support? 

*  note  that  Refueling  is  somewhat  different  from  refueling 
How  much  excess  capability  is  there? 

Are  the  Hot  Pits  required  to  support  the  ATO? 

What  is  the  availability  of  R-14  refueling  trucks? 

If  needed,  how  many  Hot  Pits  are  available? 


What  are  the  peak  hours  of  operation  for  the  refueling  trucks? 


there  enough  drivers  to  man  the  refueling  trucks  for  24  hour  operation? 


How  much  of  the  ATO  can  Munitions  support? 

*  Here  again,  Munitions  has  a  different  connotation  from  munitions 

*  ie  the  department  vs  the  commodity,  but  this  if  of  little  or  no 

*  consequence. 

How  much  is  the  munitions  shortfall  and  what  is  causing  it? 

How  many  of  the  tasked  sorties  munitions  are  already  built? 

Of  those  already  built,  how  many  are  in  shelters? 


How  much  of  the  ATO  can  the  munitions  load  crews  and  equipment  support? 
If  there  is  a  munitions  loading  shortfall,  what  is  causing  it? 

How  much  of  the  ATO  can  munitions  distribution  support? 

If  there  is  a  munitions  distribution  shortfall,  what  is  causing  it? 


How  much  of  the  ATO  can  the  munitions  assembly  process  support? 
If  there  is  a  munitions  assembly  shortfall,  what  is  causing  it? 


Are  there  any  alternate  munitions  available  to  use  in  lieu  of  the  short 
munition? 

Are  there  any  AIM-9J  missiles  stored  off-base? 


Are  there  any  equipment  shortages? 

Are  there  enough  5/10-ton  tractors  to  substitute  for  the  shortage  of  MB-4 
Bobtail  trucks? 

How  many  forklifts  are  awaiting  maintenance  and  parts? 


How  mar  load  crews  are  needed  for  the  first  shift? 


How  many  load  crews  are  available  as  of  0600Z  20  may  83? 
What  are  the  SCL  qualifications  load  crews  #1? 

Are  there  any  extra  load  crew  members? 


the  specific  tasking  level  be  supported  by  maintenance? 
there  is  a  maintenance  support  shortfall,  what  is  causing 


it? 


How  much  of  the  ATO  can  the  AGE  support  handle? 

If  there  is  an  AGE  support  shortfall,  what  is  causing  it? 

What  is  the  status  of  the  Wing  AGE  availability? 

How  many  MD-3’s  are  Operationally  Ready? 


What  is  the  schedule  mission  flow? 

What  is  the  required  turn  pattern  to  meet  the  modified  tasking? 
What  is  the  minimum  aircraft  required  for  the  modified  tasking? 


What 


is  the  approved  flight  schedule? 

mission  is  on  line  #18  of  the  flying  schedule? 


How  many  aircraft  will  be  Mission  Capable  in  time  to  meet  tasking'-' 


What  are  the  ETIC  and  problems  with  NMC  aircraft? 

Where  arc  the  aircraft  located? 

j^H?e  the  load  out  begins,  what  lines  are  not  meeting  the  schedule? 

If  a  line  is  not  on  schedule,  which  part  of  the  line's  schedule  is  having 
difficulty? 

What  is  the  overall  condition  of  the  aircraft  flying  process? 

What  is  the  condition  code  of  the  aircraft? 

Where  is  the  aircraft? 

What  is  the  status  of  the  aircraft? 

What  type  of  munitions  is  the  aircraft  configured  with? 

When  did  the  aircraft  land? 

When  is  the  aircraft  scheduled  to  take  off? 

How  close  is  the  aircraft  to  takeoff? 

What  is  the  Estimated  Time  in  Commission  for  code  3  aircraft? 


What  is  the  status  of  major  components  in  the  POL  system? 
How  many  fillstands  are  available? 

How  many  fuel  trucks  are  available?  Fuel  truck  drivers? 
How  many  hydrants  are  available? 
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flWi  hatte.  Please  say  something 
can  you  herar  me 
Yes.  say  something  else 

hello  now  is  the  time  -for  George  to  walk  in 
how  many  sorties? 

t***************************************************************************** 

5-15-1986  12:54:08 

Can  I  -fly  BAI  with  my  chickens? 
yes  i-f  you  fly  war  goose 
what  are  my  oca  capabilities 

i  do  not  understand  the  question;  please  try  again. 

how  many  oca  sorties  can  we  generate  in  the  next  three  days 

1324  sorties. 

what  is  the  daily  oca  sortie  generation  rate  for  the  next  three  days 


05-15-1986 


13: 12: 28 


what  is  my  daily  oca  sortie  generation  rate 
1.75 

how  many  sorties  per  day 
476 

which  aircraft 

they  are  f-4e  and  f-16. 

how  many  f-4e  oca  sorties  in  the  next  three  days 
441 
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^oj^»ow  many  f-4e  oca  sorties  per  day 

/■P  don’t  understand  the  question;  please  try  again. 

G:  how  many  oca  sorties  per  day 
A:  476 

G:  how  many  f-4e  oca  sorties  per  day 

A:  i  don’t  understand  the  question;  please  try  again. 

G:  how  many  f-4e  sorties  can  i  generate  in  the  next  three  days 
A:  441 

Q:  how  many  f-4e  oca  sorties  can  i  generate  in  the  next  three  cfays 
A:  441 

D:  are  these  all  oca 
A:  yes. 

G:  what  is  the  limfac 

A:  i  don’t  understand  the  question;  please  try  again. 

G:  why  cant  i  generate  more  sorties 
A:  there  are  no  more  f-4e  aircraft. 

G:  how  long  can  i  maintain  a  1.75  sgr 
A:  what  is  the  meaning  of  "sgr"? 

Q:  sortie  generation  rate 
A:  5  days. 

Q:  why  cant  i  go  past  five  days 

A:  the  limiting  factor  is  oca  munitions. 

Q:  which  munitions 
A:  general  purpose  bombs. 

G:  what  is  the  limiting  factor 

Ai-^the  limiting  factor  is  oca  munitions. 

C>s-O>ow  many  days  fuel  do  i  have 
a’>S“p'6  days. 

G:  clarify  6  days 


Ati'JV 
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A:  i  don’t  understand  the  question;  please  try  again, 
sdfehow  many  days  -fuel  do  i  have  -for  f-4e  oca  sorties 
mPh  days. 

Q:  How  many  f4s  -foe  at  hahn? 

A:  i  don’t  understand  the  question;  please  try  again. 
Q:  How  many  f4s  pmc  at  hahn? 

A:  0 

0:  how  about  fmc? 

A:  0 

Q:  are  there  any  *45  at  hahn 
A:  no. 

Q:  how  many  fl5  at  hahn 
A:  0 

Q:  how  about  fl6s? 

A:  73 

C:  how  many  -fmc 
A:  55 

0:  and  pmc? 

A:  11 

D:  what  is  the  status  of  the  other7? 

A:  i  don’t  understand  the  question;  please  try  again. 
Q:  what  is  the  status  o-f  the  other  7  fl6s? 


Q:  What  is  the  sum  o-f  -fmc,  pmc,  and  nmc? 

A:  73 

Q:  How  much  pol  at  spang  ? 

Afl^l  700000  gallons. 
flHLhat  kind? 

AVJP-8. 

Q:  how  many  pounds  would  that  be? 

A:  i  don’t  understand  the  question;  please  try  again. 

Q:  how  many  pounds  to  a  gallon  of  jpB? 

A:  6.4  pounds  per  gallon 

Q:  what  is  surge  sortie  rate  for  f4s  at  spang? 

A:  1.75 

0:  so  how  many  sorties  can  hahn  generate  per  day? 

A:  126 

Q:  how  many  f4s  at  spangdahlem? 

A:  72 

0:  how  did  you  get  so  damn  smart? 

A:  i  don’t  understand  the  question;  please  try  again. 

Q:  how  many  cas  msns  can  hahn  generate  in  first  5  days' 
A:  what  is  the  meaning  of  "msns"? 

Q:  missions 

A:  hahn  does  not  support  cas  missions. 

Qs  how  about  wild  weasel  sorties 

A:  hahn  does  not  support  wild  weasel  missions. 

0:  how  about  spang 
A:  674 

Q:  how  many  the  first  day 
A:  135 

Qa_ how  many  the  2nd  day 


v: 


SB 


Gw*  give  me  the  number  of  sorties  that  hahn  can  generate  for  each  of  the  first  5 
days 

A:  (1  128)  (2  128)  (3  128)  (4  117)  (5  117) 
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l^/.vthank  you 
AftftWthank  you. 

Brnichael  here,;  say  something 
A:  yo 

Q:  Hey  Jim,  What  the  hell  is  my  username  on  the  Symbolics?  (It  is  booted) 

A:  you  don’t  have  one  yet. 

0:  So  What’s  yours? 

A:  this  is  bob;  jim  says  the  machine  is  in  deep  kimshi. 

*M*M*t**<^M******************************************t***t  ****************** 
05-15-1986  14:19:28 

G:  what  can  you  tell  me. 

A:  tactical  air  capabilities  in  central  europe. 

Q:  how  many  or  airplanes  do  I  have? 

A:  what  is  the  meaning  o-f  "or"? 

G:  Operationally  ready 
A:  221 

Q:  munitions  status 
A:  please  ask  a  question. 

0:  What  kind  o-f  airplanes  do  I  have? 

A:  -f-4e,  f-4g,  f-15,  f-16. 

0:  What  type  o-f  munitions  -for  -f-16 

A:  i  don’t  understand  the  question;  please  try  again. 

Q:  Do  you  have  munitions  in  -file? 

A:  yes:  smart-munitions  and  dumb-muni t i ons. 

Q:  list  the  smart-muni t i ons 
A:  agm-65  (maverick). 

i  st  the  dumb-muni  ti  ons 

«Wnk-82  (general -purpose  bomb),  20mm  (hei  and  api). 

D:  Do  I  have  special  equipment  on  the  -f-16  -for  agm-65? 

A:  yes:  the  lau-45  launcher. 

G:  How  many  agm-65  do  I  have? 

A;  -f-16  is  at  hahn  and  ramstein;  how  many  agm-65  at  those  bases? 

Q:  How  many  agm-65’ s  do  I  have  at  Hahn  and  Ramstein? 

A :  310 

D:  What  is  my  planned  or  actual  aircraft  attrition  rate? 

A:  planned  attrition  rate  is  0.05 

Q:  How  many  -f-16s  do  I  have  at  Hahn  and  Ramstein? 

A:  146 

Q:  How  many  at  Hahn. 

A:  73 

G:  At  3  sorties  a  day  for  Hahn  and  Ramstein  how  long  will  it  be  before  my  agm-61 
’s  go  to  0? 

A:  103  days. 

G:  Given  attrition  rate  how  long  will  it  be  before  I  will  have  50  airplanes  at  ) 
ahn  and  50  airplanes  at  Ramstein? 

A:  plans  call  for  augmentation  at  60  aircraft. 

Q:  Given  the  aircraft  attrition  rate  how  long  will  it  be  before  I  have  50  airpli 
nes  at  Hahn? 

A:  plans  call  for  augmentation  at  60  aircraft. 

G:  When  will  I  reach  61  airplanes  at  Hahn  with  the  attrition  rate  of  0^05? 

A:  on  day  4. 

Q^Nhat  are  my  airfield  conditions? 

Av.^ahn  is  operational. 

0:  How  long  is  the  runway 
A:  9800  feet. 

0:  What  is  the  POL  status  at  Hahn? 

A:  1700000  gallons. 

Q:  What  are  the  weather  conditions? 


Hahn  and  Ramstein  how  long  will  it  be  before 


agm-65 


aircraf t . 
how  long  will 


will  have 


be  before 


airplanes  at 


have 


ai rpl a 


Hahn  with  the  attrition  rate  of 


em 1 . out 


05-16-1986  15:36:36  PAGE  4 


§  current  weather  conditions  are  not  known. 

What’s  my  aircraft  recovery  rate? 

60  aircraft  per  hour  capability. 

Q:  Is  that  visual  flight  rules  (vfr>? 

A:  current  weather  conditions  are  not  known. 

Q:  What  is  the  status  of  my  aircrews? 

A:  hahn  aircrews  are  operational. 

D:  How  many  do  I  have? 

A:  105 

Q:  How  many  pilots  do  I  have? 

A:  105 

0:  Are  they  combat  ready? 

A:  yes. 

Q:  Do  any  crews  need  specialized  training? 

A:  i  don’t  know  about  individual  crews. 

Q:  Are  they  current  with  their  training  requirements? 

A:  i  don’t  know  about  individual  crews. 

Q:  What  is  my  pilot  attrition  factor? 

A:  1  per  aircraft. 

Q:  What  type  of  aircrew  is  in  the  back  seat? 

A:  f-16  is  a  single-seat  aircraft. 

Q:  What  type  of  aircrew  is  in  the  back  seat  of  an  f-4e? 
A:  weapons-system-operator . 

Q:  Are  they  combat  ready? 

A:  i  don’t  know  about  individual  crews. 

Q:  How  many  do  I  have? 


A: 

Q: 

A: 

Q: 

A: 

Q: 

A: 

0: 


64 

How  many  f-4e’s  do  I  have? 

48 

How  many  pilots? 

105 

How  many  f-4’s  do  I  have? 

72 

What  is  the  ratio  between  f-4 

I  a 

What  is  the  ratio  between  f-4 


pilots  and  f-4  aircraft? 
weapons-sy stem-operators 


A:  1.25 


and 


Q:  What  type  of  f-4  airplanes  do  I  have,  and  how  many  of  each 
A:  <f-4e  48)  <f-4g  24) 

0:  What  is  my  sortie  generation  capability? 

A:  which  airbases? 

0:  Hahn 

A:  135  day  1-3,  117  day  4- 

0:  What  kinda  airplanes  at  Hahn? 

A:  i  don’t  understand  the  question;  please  try  again. 

0:  What  airplanes  at  Hahn? 

A:  f-16. 

Q:  Where  are  the  f-4’s  located? 

A:  spangdahlem. 

0:  Sortie  generation  at  Spang 

A:  i  don’t  understand  the  question;  please  try  again. 

Sortie  generation  at  Spangdahlem 
$P"v  i  don’t  understand  the  question;  please  try  again. 

Cfs  Sortie  generation  at  Spangdahlem? 

A:  i  don’t  understand  the  question;  please  try  again. 


f-4  aircraft 
type? 
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Q|  What  is  the  sortie  generation  at  Spangdahlem 
^28  day  1-3,  102  day  4- 

Gf^based  upon  a  sortie  rate  of  10  per  day  at  Spangdahlem  when  will  I  run  out  of 
dumb-muni ti ons? 

A:  day  5. 

Q:  Can  the  aircraft  perform  nuclear  operations? 

A:  i  don't  know  about  "nuclear"  operations. 

Q:  Can  the  aircraft  perform  conventional  missions? 

A:  yes. 

0:  What  kind  of  conventional  missions? 

-f-4g  sead)  (f-4e  sead,  oca,  ai  ,  dca) 
what  is  sead? 

A:  supression  of  enemy  air  defense. 

Q:  What  is  oca,  ai ,  dca? 

A:  offensive  counter-air,  air  i nter di ct i on ,  defensive  counter-air. 

Q:  What  weapons  do  I  need  for  ai? 

A:  agm-65  or  mk-82. 

D:  for  oca? 

A:  agm-65  or  mk-82. 

Q:  for  dca? 

A:  aim-7,  aim-9,  20mm. 

Q:  How  many  of  these  in  stock? 

A:  (aim-7  112)  (aim-9  220)  (20mm  1000000) 

D:  What  is  the  expenditure  rate  per  sortie  of  20mm. 

A:  300  rounds  per  sortie. 

*****)M*M*************»***************#****)M*M****************************** 

0^6-1986  13:12:45 

G^Pow  many  f-4s  are  flyable  at  spangdahlem  now? 

A:  i ' d  say  about  58. 

Q:  who  is  "i ' d "? 

A:  me.  But  since  it's  Friday,  we'd  only  have  52. 

0:  how  many  fmc,  pmc,  wargoer  by  risk  out  of  that  58? 

A:  39  fmc;  6  pmc;  2  low  risk;  2  moderate;  and  9  high  risk. 

Q:  good,  how  many  sorties  will  that  get  me  on  a  3  wave  day? 

A:  102 

Q:  that's  lousy,  what  can  we  do  to  get  sortie  production  up  to  142? 

A:  I  didn't  use  high  risk  a/c.  I  could  get  15  more  sorties  if  I  use  high  risk. 
(2:  15  plus  102  is  117.  so  answer  my  question  or  i  will  condemn  you  to  eternal  d 

mnat i on . 

A:  I  can't  make  142  unless  I  kill  my  crews  for  the  next  2  days 

Q:  i’m  satisfied  with  that,  now,  do  you  want  to  stay  with  me,  or  should  i  send 
ou  back  to  sherman? 

A:  keep  on  going,  George. 

Q:  o.k.,  give  me  the  same  flying  profile  for  hahn,  bit,  and  spang. 

A:  for  Hahn,  130  sorties;  for  Bit,  122  sorties;  I  already  gave  you  Spang. 

Q:  right,  i  meant  bitburg. 

A:  Ramstein,  right-7  I  can  only  give  you  32  from  Ramstein. 

Q:  thanks,  is  that  also  based  on  a  3  day  go7 
A:  yes 

Q:  o.k.,  with  1  squadron  rolled  dca  at  hahn,  how  many  sorties  per  go  can  we  get 
from  hahn  tomorrow  for  bai? 

A^7hat’s  tough.  I  think  we  could  only  get  about  30  per  go. 

£<->>hat '  s  enough,  how  many  sead  pairs  can  we  get  for  each  wave  to  support  hahn"' 
A:-  we  could  only  get  4  pairs  and  that's  stretching  it. 

Q:  good,  now  if  i  lash-up  8  eagles  with  each  pact  age,  how  many  will  i  have  left 
•t  bit  on  5  minute  alert? 

A:  We'd  have  about  4. 

do  you  have  your  oplan 
A:  yes 


142? 

I  use  high  risk, 
you  to  eternal  da 


send 
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how  amany  what? 
orties  -for  tomorrow 
0  sorties. 

Q:  what  %  air  to  air, air  to  ground 
A:  607.  air-to-air,  407.  air-to-mud 
Q:  which  has  priority 

A:  air — to-air.  If  we  don’t  keep  our  bases  open,  we're  dead. 

Q:  do  you  mean  dca  or  oca 
A:  dca 

0:  is  there  a  significant  sam  threat 
A:  yes,  and  other  threats 
Q:  within  range  of  my  dca  orbits 
A:  only  the  SA-5s. 

0:  what  is  the  weather  in  your  operational  area 
A:  bad,  cloudy,  drizzle,  but  we  can  fly. 

Q:  can  you  fully  support  dca 
A:  no 

Q:  did  you  plan  to  use  war — goers 
A:  no 

0:  how  many  can  you  generate  tomorrow,  that  is  dca 
A:  210  sorties  tomorrow. 

0:  plan  to  use  war-goers  with  each  flight  having  1 
nm  range  and  1  fmc  ecm  pod  /  flight 
A:  ok 

0:  how  many  of  those  can  you  generate 
A:  I  can  get  an  additional  30  sorties  tomorrow, 
show  many  are  you  short  of  whats  really  needed, 
ve  got  4  compressors  that  are  hard  broke, 
l  mean  how  many  dca  sorties  am  i  short 
about  20. 

Q:  do  you  plan  to  launch  waves,  if  so  how  many 
A:  3  waves  per  day 

Q:  do  you  think  you  can  make  up  the  difference  by 
e  maintenance  can  support  this 
A:  no,  I’d  kill  my  crews  in  two  days. 

Q:  are  crews  the  most  constraining  factor 
A:  yes 

D:  maint  or  fit  crews 
A:  flight  crews 

0:  can  any  other  base  or  bases  cover  the  20  needed  dca  sorties 
A:  no 

Q:  will  additional  ar  help,  assume  longer  sorties 
A:  what’s  "ar"? 

0:  air  refueling,  also  denoted  as  a/r 

A:  no,  my  crews  will  drop  out  of  the  sky;  they  just  can’t  fly  that  long. 

0:  whats  implied  is,  flying  longer  sorties  implies  less  crews  used 

A:  gotcha — new  answer:  "I  could  get  30  additional  sorties  if  I  use  a/r" 

Q:  good,  execute  that  for  dca.  what  resources  do  you  most  urgently  need 

ext  three  days 

A:  AIM-9LS.  I’m  going  to  run  out  of  them  in  two  days. 

Q:  will  600  help,  if  i  get  you  200  tomorrow  and  400  in  5  days 
Ai-I’m  using  almost  200  a  day.  It’ll  be  close. 

you  realize  that  humans  get  tired,  break  break 
A*/-*thank  you,  Lou. 


m 


sorties 


radar,  operational  out  to  45 


your  personal  assessment 


using  continuous  launch.  Assum 


in  the  n 
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Inlcuded  in  this  section  are: 

(1)  vocab.mrg,  an  alphabetical  listing  of  the  vocabulary  generated 
from  the  input  in  Section  II. 

(2)  vocab.num,  a  listing  by  frequency  of  the  same  vocabulary. 

(3)  a  concordance  based  on  some  sample  questions. 

(4)  a  concordance  based  on  all  the  inputs  described  in  Section  II. 
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A-A 
A-G 
A 10- A 
A10A 
AAA 
ABCCC 
ABILITY 
ABLE 
ABOUT 
ABOVE 
ABSENCE 
?SOLUTE 
1ADEMIC 
ACADEMY 
ACC 

ACCEPTABLE 

ACCESS 

ACCOMMODATE 

ACCOMPANY 

ACCOMPANYING 

ACCOMPLISH 

ACCOMPLISHED 

ACCOMPLISHES 

AfiftPMPLISHING 

AtijjkMPLISHMENT 

ACCORDED 

ACCORDING 

ACCS 

ACCS’ 

ACCURACY 

ACCURATE 

ACHIEVE 

ACHIEVED 

ACHIEVING 

ACQUIRE 

ACQUIRING 

ACQUISITION 

ACT 

ACTING 

ACTION 

ACTIONS 

ACTIVE 

ACTIVITIES 

ACTIVITY 

ACTUATE 

ADAPTATION 

ADAPTED 

ADDED 

ADDITION 

ArfffiVriONAL 

AKKftJATELY 

ADJACENT 

ADJUST 

ADJUSTMENT 
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fe 

ADVANCED 

ADVANTAGE 

ADVERSE 

ADVERSE-WEATHER 

ADVISE 

ADVISING 

AERIAL 

AEROMEDICAL 

AEROSPACE 

AFCC 

AFFECT 

AFFECTED 

AFFECTING 

AFFORDED 

AFLC 

AFSC 

AFT 

AFTEC 

AFTER 

AFTERNOON 

AGAINST 

AGE 

AGENCIES 

AgflNCY 

^Pession 

AGGRESSIVE 

AGGRESSOR 

AGM-45 

AGM-65 

AGM-65A 

AGM-65D 

AGM-65S 

AGM-78 

AGM-88 

AGS 

AHLHORN 

AI 

AID 

AIDS 

AIM 

AIM-4F 

AIM-4G 

AIM-7 

AIM-7E 

AIM-7F 

AIM-9 

AIM-9J 

AIM-9L 

AJUU-9P 
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AIR-TO-AIR 
AIR-TO-GROUND 
AIRBORNE 
AIRCRAFT 
AIRCRAFT’S 
A I RCR AFT-REMOTEL Y 
AIRCREW 
AIRCREWS 
~  T  RDROP 
-i  ELD 
:  RFRAME 
AIRLAND 
AIRLANDING 
AIRLIFT 
AIRPLANE 
AIRPLANES 
AIRPOWER 
AIRSPACE 
AIRSTRIKE 
ALERT 
ALERTING 
ALFA 
ALL 


ABM^eather 
allocated 

ALLOCATION 

ALLOW 

ALLOWED 

ALLOWS 

ALOC 

ALONE 

ALREADY 

ALSO 

ALTERNATE 
AL  TERNATES 
-“'UGH 
.  TUDE 
hlTITUDES 
AM 

AMERICA 

AMERICAN 

AMOUNT 

AMPHIBIOUS 

AMRAAM 

AN 

ANALYSIS 

AND 

A^^L 

ANOTHER 
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r^NT  I  PERSONNEL 
ANT I RAD I AT I ON 
ANTISUBMARINE 
ANTITANK 
ANY 

ANYTHING 

ANYWHERE 

AP 

APPARENT 

APPLICABLE 

APPLICATIONS 

APPLIED 

APPORTIONMENT 

APPROACH 

APPROPRIATE 

APPROVED 

APPROXIMATE 

APPROXIMATELY 

APR- 38 

ARE 

AREA 

AREAS 

ARES 

AffcMONA 


ARMED 

ARMOR 

1 

ARMORED 

1 

ARMS 

1 

ARMY 

8 

ARN-101 

yt 

ARRANGEMENTS 

i 

ARRESTING 

2 

ARRIVAL 

1 

ARRIVES 

1 

ARSENAL 

1 

AS 

54 

ASIA 

r* 

ASOC 

3 

ASPECTS 

1 

ASRT 

1 

ASSAULTS 

1 

ASSEMBLERS 

2 

ASSEMBLY 

2 

ASSESS 

1 

ASSESSMENT 

1 

ASSET 

1 

ASSETS 

9 

AtfftfcGNED 

17 

ASSIGNMENT 

2 

ASSIST 

2 

ASSISTANCE 

1 
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'AftjgQlCIATED 

ASSUME 

ASSURE 

ASSURED 

ASSURES 

AT 

AT-38 

AT-38B 

ATC 

ATD 

ATLANTIC 

ATO 

ATTACH 

ATTACHED 

ATTACHMENT 

ATTACK 

ATTACKED 

ATTACKS 

ATTAINMENT 

ATTEMPT 

ATTEMPTING 

ATTENTION 

ATTRITION 

AUGMENT 

AUfiflENTATION 

Rented 

augmenting 


AUGMENTS 

1 

AUTHORITATIVE 

1 

AUTHORITIES 

1 

AUTHORITY 

b 

AUTHORIZE 

1 

AUTHORIZED 

1 

AUTOPILOTS 

1 

AUXILIARY 

1 

AVAILABILITY 

4 

AVAILABLE 

19 

AVIONICS 

o* 

AVOID 

2 

AWACS 

8 

AWAITING 

1 

AWARE 

2 

B 

1 

BACK 

1 

BA  I 

8 

BASE 

19 

BASEBALL-SIZE 

1 

BASED 

5 

BASES 

15 

BASIC 

5 

bWwle 

battlefield 

BAY 
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BEACON 

BEAR 

BECAUSE 

BEEN 

BEFORE 

BEGAN 

BEGINS 

BEHAVIOR 

BEHIND 

BEING 

BELOW 

BENEFICIAL 

BERGSTROM 

BEST 

BETTER 

BETWEEN 

BEYOND 

BIRD 

BITBURG 

BLU-97 

BLUE 


BLUNTS 

1 

BOBTAIL 

1 

Bern 

B^R 

9 

2 

BOMBERS 

2 

BOMBLETS 

5 

BOMBS 

13 

BOOK 

1 

BOOSTING 

1 

BORDER 

1 

BOTH 

15 

BOUNDARIES 

2 

BOWING 

1 

BRANCH 

1 

BRAND 

1 

BREAKAGE 

1 

BREAKTHROUGH 

1 

BRIEFED 

2 

BRIEFLY 

1 

BROAD 

2 

BROUGHT 

1 

BRUS 

1 

BU 

1 

BUILD 

3 

BUILDING 

1 

BUILT 

7 

BUT 

6 

c% 

70 

1 

c-Vio 
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C-135 
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C2 
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3 

CAMERA 

1 

CAMERAS 

1 

CAMOUFLAGE 

1 

CAMPAIGN 

8 

CAN 

93 

CAN’T 

1 

CANISTER 

2 

CANNON 

6 

CANNONS 

1 

CANNOT 

1 

CAP 

7 

CAPABILITIES 

12 

CAPABILITY 

46 

CAPABLE 

20 

CAPACITY 

2 

CAPS 

2 

CAPSULE 

1 

CAREFUL 

2 

CAREFULLY 

1 

CARGO 

1 

CAROLINA 

1 

CABRIED 

10 

mSkiER 

1 

ctPries 

3 

CARRY 

8 

CARRYING 

*7 

CAS 

7 

CATEGORIES 

“T 

CATEGORY 

3 

CAUSE 

1 

CAUSING 

7 

CBU 

1 

CBU-52 

2 

CBU-58 

2 

CBU-87 

1 

CBU-87B 

1 

CBU-89 

4 

CEILING 

4 

CEM 

2 

CENTER 

25 

CENTERLINE 

2 

CENTERS 

1 

CENTRAL 

19 

CENTRALIZED 

9 

CENTRALLY 
CERTAIN 
CHAFF 

lLENGE 
JGE 
CHANGED 
CHANGES 
CHANGING 
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CHARACTERISTIC 
CHARACTERISTICS 
CHARGE 
CHARGED 
CHIEF 
CHOICE 
CHOOSE 
C INC AD 
CINCLANT 
CINCLANTABNCP 
* ’ NCNORAD 
SUITS 
civic 
CIVILIAN 
CLASS 

CLOSE  1 

CLOSE-AIR- 

CLOSE- A I R-SUPPORT 

CLOSE-A I R-SUPPORT-OPER AT I ONS 


CLOSED 

CLOSED-COURSE 

CLOSURE 

C^pTER 

COCKPIT 

CODE 

COLLABORATE 
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